.10-0185  869 


UNCLASSIFIED 


THE  CLASSIFICATION  PROBLEM  OF  FINITE  RINGS  BV 
COMPUTABLE  MEANS(U)  AIR  FORCE  INST  OF  TECH 
URIGHT-PATTERSON  AFB  OH  U  A  ICIELE  198? 
AFIT/CI/NR-87-118T 


1/2 


NL 


F/G  12/1 


AD-A1S5  £69 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (When  DeteEntered)  _ 

_  REPORT  DOCUMENTATION  PAGE  ' 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


A 


1.  REPORT  NUMBER 

AFIT/CI/NR  87-118T 


2.  GOVT  ACCESSION  NO 


3.  RECIPIENT'S  CATALOG  NUMBER 


I.  TITLE  (end  Submit) 


The  Classification  Problem  of  Finite  Rings  by 
Computable  Means 


5.  type  of  report  a  PERIOD  covered 
THES I S /D I S  S  ERTAT ION 


6.  PERFORMING  O^G.  REPORT  NUMBER 


7.  author^; 

William  Albert  Kiele 


8.  CONTRACT  OR  GRANT  NUMBERfs.) 


9.  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

AFIT  STUDENT  AT: 


to.  PROGRAM  ELEMENT.  PROJECT,  TASK 
AREA  4  WORK  UNIT  NUMBERS 


North  Carolina  State  University 


II.  CONTROLLING  OFFICE  NAME  AND  ADDRESS 

AFIT/NR 

WPAFB  OH  45433-6583 


12.  REPORT  DAT 


mi 


13.  NUMBER  OF  PAGES 


131 


14  MONITORING  AGENCY  NAME  4  ADDRESSf/l  dllterenl  Irom  Controlling  Olllce) 


IS.  SECURITY  CLASS,  (of  title  report) 

UNCLASSIFIED 


1 5a.  DECLASSIFICATION/ DOWN  GRADING 
SCHEDULE 


16.  DISTRIBUTION  STATEMENT  (of  thta  Report) 


APPROVED  FOR  PUBLIC  RELEASE;  DISTRIBUTION  UNLIMITED 


17.  DISTRIBUTION  STATEMENT  (of  the  abstract  entered  In  Block  20,  If  different  from  Report) 


0 


DTIC 

ELECTE 
NQV1  a  1887 


°T> 


18.  SUPPLEMENTARY  NOTES 

APPROVED  FOR  PUBLIC  RELEASE:  IAW  AFR  190-1 


LY$N  ET  WOLAVER 
Dean  for  Research  and  ' 
Professional  Development 
AFIT/NR 


19.  KEY  WORDS  (Continue  on  reverse  side  If  necessary  and  Identify  by  block  number) 


20  ABSTRACT  (Continue  on  reverse  side  If  necessary  and  Identify  by  block  number) 

ATTACHED 


0D  I  JAN  73  1473  EOITION  OF  I  NOV  85  IS  OBSOLETE 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (RTion  Dele  Entered) 


id  as  /so 


! 


Q 


m 


$ 

$ 

$ 


The  Classification  Problem  of  Finite  Rings 
by  Computable  Means 


William  Albert  Kiele 


A  thesis  submitted  to  the  Graduate  Faculty  of 
North  Carolina  State  University 
in  partial  fulfillment  of  the 
requirements  for  the  Degree  of 
Doctor  of  Philosophy 


Department  of 


Mathematics 


Raleigh 

1987 


Approved  By: 


^  //V  - 


Chairman  of  Advisory  Committee 


87 


'  8  0 


a 


i 

t 

1 


Abstract 

KIELE,  WILLIAM  ALBERT,  Ma j ,  USAF.  "The  Classification 
Problem  of  Finite  Rings  by  Computable  Means”  (Under  the 

Direction  of  Kwangll  Koh).  1987,  Ph.D.,  North  Carolina 


State  University. 


'  '  St 


The  purpose  of  this  papeof  is  to  establish  a 
constructive  method  for  testing  when  two  given  finite  rings 
are  Isomorphic.  Currently  published  theory  has  classified 
a  significant  number  of  finite  rings;  however,  "idealized" 
representatives  are  almost  always  used,  with  no  provision 
for  determining  which  Isomorphism  class  an  arbitrary  ring 
belongs.  The  new  results  are  as  follows: 

1.  Two  rings  are  isomorphic  if  and  only  if  a  specific 
system  of  quadratic  equations  is  satisfied.  This  system, 
and  a  method  of  attacking  it,  were  developed  by  the  author. 

2 .  As  a  corollary  to  the  preceding  result,  there  exists  a 
system  of  linear  equations  that  positively  identify  whether 
or  not  a  ring  R  possesses  a  1.  The  system  also  shows  how  to 
change  a  ring's  basis  so  that  1  becomes  a  basis  element. 
Some  tests  for  existence  of  other  idempotents  besides  1  are 
shown. 

3.  some  old  and  new  results  in  classifying  finite  rings  of 
small  rank  are  obtained  with  the  help  of  theory  developed 


in  this  paper 
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KIELE/  WILLIAM  ALBERT.  The  Classification  Problem  of  Finite 
Rings  by  Computable  Means  (Under  the  Direction  of  Kwangil 


Koh)  . 

The  purpose  of  this  paper  is  to  establish  a 
constructive  method  for  testing  when  two  given  finite  rings 
are  Isomorphic.  Currently  published  theory  has  classified 
a  significant  number  of  finite  rings;  however,  "idealised" 
representatives  are  almost  always  used,  with  no  provision 
for  determining  which  isomorphism  class  an  arbitrary  ring 
belongs.  The  new  results  are  as  follows: 

1.  Two  rings  are  isomorphic  if  and  only  if  a  specific 
system  of  quadratic  equations  is  satisfied.  This  system, 
and  a  method  of  attacking  it,  were  developed  by  the  author. 

2 .  As  a  corollary  to  the  preceding  result,  there  exists  a 
system  of  linear  equations  that  positively  identify  whether 
or  not  a  ring  R  possesses  a  1.  The  system  also  shows  how  to 
change  a  ring's  basis  so  that  1  becomes  a  basis  element. 
Some  tests  for  existence  of  other  idempotents  besides  1  are 
shown . 

3.  Some  old  and  new  results  in  classifying  finite  rings  of 
small  rank  are  obtained  with  the  help  of  theory  developed 
in  this  paper. 
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Introduction 


Raqhavendran  CRal,  Wiesenbauer  tfll,IW21,  and  Kruse  &  Price 
IKP]  classified  all  finite  p-rings  of  cardinality  up  to  and 
including  p4,  using  well-established  theory  of  Jacobsen 
radicals  and  innovative  techniques  of  their  own.  In  each 
work,  these  authors  also  tackled  special  larger  rings  using 
their  methods.  In  all  cases,  the  "canonical"  forms  each 
author  used  were  carefully  chosen  for  their  simplicity  of 
expression  and  invariance  under  various  algebraic 
properties.  Further,  key  ring  isomorphism  theorems  and 
results  were  based  on  existence,  rather  than  construction. 
In  this  paper,  an  approach  to  the  ring  isomorphism  problem 
is  taken  which  is  related  to  both  Wiesenbauer ' s  and  Kruse  & 
Price's;  yet,  the  differences  are  sufficient  to  yield  new 
insights  so  that  one  can  see  how  two  rings  of  small  rank 
are  related  to  each  other,  by  actually  constructing  a 
transition  mapping.  The  chapters  of  this  paper  are 
organized  as  follows: 

I.  Two  familiar  objects  are  looked  at  in  a  new 
way--the  multiplication  table  of  a  ring  defined  on  the 
basis  of  its  additive  group,  and  its  associated  coordinate 
"cube",  while  wiesenbauer  and  Kruse  &  Price  both  define 
structure  constants  based  on  at  least  one  of  the  axes  of 
the  cube,  none  look  at  all  three.  By  so  doing,  some  new 
computational  results  equivalent  to  and  extending  the 
currently  known  ones  are  obtained. 


II.  A  mapping  on  the  module  of  cubes  is  defined  and 
shown  to  be  a  group  representation;  other  properties  are 
also  obtained. 

III.  A  conclusive  test  for  isomorphism  between  two 
rings  is  derived,  producing  a  system  of  quadratic  equations 
which  can  be  effectively  attacked  when  the  rank  of  R  is 
small.  This  system,  called  the  Quadratic  Identities f  can 
be  modified  to  identify  any  and  all  nonzero  idempotents  in 
a  given  ring,  including  1. 

IV.  A  presentation  of  the  computer  algorithms 
developed  for  this  paper,  as  well  as  several  illustrative 
examples,  are  given. 

v.  some  old  and  new  results  for  certain  rings  of  rank 
two  are  obtained,  using  idempotents  and  the  tools  of  this 
paper  as  the  basis  for  investigation. 


3 


I.  Review  and  Elementary  Results 
1.  Two  classical  theorems  in  group  theory. 

Convention.  Throughout  this  paper,  a  rinq  will  be  presumed 
to  be  associative  except  where  noted,  and  not  necessarily 
with  identity.  Also,  R+  means  the  additive  qroup  of  a  ring, 
or  any  abelian  qroup  from  which  a  ring  is  to  be  constructed 
--the  context  will  make  it  clear  which  of  the  two  is  meant. 

Proposition  1.1.1:  Let  R  be  a  finite  rinq.  Then  R  is  the 

d 

(rinq)  direct  sum  R  =•  S  R^,  l<i<t,  where  |R  |  =  p^v,  each 
is  a  distinct  prime  number,  and  each  d  is  a  positive 
integer . 

d  d 

Proof:  Since  R  is  a  finite  ring,  | R | =P1  • . . . ■ Pt  and  it  is 
an  abelian  aroup  (denoted  R* )  with  respect  to  its  addition. 
Thus,  R*  is  the  additive  direct  sum  of  its  (unique)  Sylow 
p-subqroups.  It  must  be  shown  that  with  respect  to  the 

i. 

ring  multiplication,  the  Sylow  groups  are  two-sided  ideals 
as  well. 

Let  R  denote  the  Sylow  p  -subgroup  of  R+.  Then 

t.  i 

d 

|RJ  =  p^1.  Further,  if  x  e  R^ ,  then  p^  -x  =  0  for  some 
nonneaative  integer  k,  because  each  element  of  generates 
a  subgroup  of  R^;  hence,  o(x),  the  additive  order  of  x. 


divides  p.  .  Hence 

R.  SR'  =  {xeR|pkix  =  0  for  some  k  >  0}  . 

t  V.  t. 

The  sets  are  in  fact  equal,  for  any  element  in  R^  generates 
a  p^-group  which  can  be  a  subgroup  only  of  R.,  and  no  other 
R^,  because  the  order  of  a  subgroup  divides  the  order  of 
the  qroup. 

Now  R ^  is  clearly  a  ring,  and  further,  since  for 
all  x  e  R,  x-R!  S  R'  and  R|-x  S  R*,  it  is  a  two-sided 

\.  x,  x.  t 

ideal.  The  desired  result  is  thus  proven.  ■ 


Thus,  when  considering  finite  rings,  it  is  sufficient  to 
examine  finite  rings  of  prime-power  order.  Such  rings  will 
be  called  p-r ings .  Throughout  this  paper,  additive 
notation  will  be  used  to  describe  the  operation  in  an 
abelian  group. 

The  following  theorem  is  known,  and  a  constructive 
proof  can  be  found  in  l Cal. 


Theorem  I.  Is  Every  finite  abelian  p-group  G  is  the  direct 
sum  of  cyclic  subgroups. 


Remark  1.1.1:  Thus,  if  G  is  a  finite  abelian  p-group,  then 


G  is  isomorphic  to  /  d  ®  /  d. 

pi  p  2 


"/  d  ,  and  the 
P  k 


following  facts  are  a  consequence  of  Theorem  1.1: 


a.  The  numbers  d,..,d  are  unique  up  to 
rearrangement . 

b.  Any  subgroup  generated  by  an  element  of  maximal 
order  is  a  direct  summand. 

c.  If  a  ring  R  has  a  1,  then  since  1  is  a  maximal 
order  element  additively,  <1>  is  a  direct  summand. 

Definition  1.1.1:  A  basis  for  an  abelian  group  R*  is  any 
minimal  set  of  generators  of  R+.  When  the  elements  of  the 
basis  are  placed  in  nonincreasing  additive  order,  they  will 
be  said  to  be  in  natural,  order. 

Definition  1.1.2:  The  rank  of  R+  (and  hence  of  R)  is  the 
number  of  elements  in  a  basis  for  R+.  The  type  of  R  is  the 
k-tuple  (d,..,d),  and  will  be  denoted  (d  , . . ,d)  . 

I  k  plk 

Remarks : 

1.1.2.  The  term  "basis”  is  justified  because  every 
element  x  e  R  has  a  unique  representation  x  =  c1e1+ • • +ckek 
for  c  e  /  d  . 

V.  P  V 

1.1.3.  If  o(o^)  =  p^  for  all  i=l,..,k,  then  G  is  a  free 
2 

/  ct-module.  Otherwise,  G  is  the  direct  sum  of  free 

D 

/  d  -modules ,  where  d  >d  > . . >d  >0,  n  <  k.  Such  a  ring 

D  v.  1  2  n 


will  be  called  a  mixed-order  ring.  Mixed-order  rings  can 


Z 

be  thought  of  as  a  free  /^c^-module  of  rank  k,  factored  by 
the  following  equivalence  relation: 


+  + 
Proposition  1.1.2:  Let  x,y  e  R  ,  SB  -  {e^} a  basis  for  R 

Z 

in  natural  order,  x  =  V  c.e.  ,  y  =  V  d.e  ,  c.,d.  e  /  d.  . 

"  V  V  V  V  VI  pi 

Then 

d. 

x  =  y  if  and  only  if  a  =  d^  mod  p  *  for  all  i  =  l,..,k. 


Proof:  x-y  =  )  (c.-d  )e  . 

L  V  L  L 
V  =  1 

)  (c.-d.)e  =  0  «*  c  -d  = 

L,  v  v  v  ■  v  v 


x  =  y  «=»  x-y  =  O  4* 

R 


0  mod  p  for  all  i=l,.,k  since  X 


a  basis 


The  foundations  of  ring  structure  will  now  be  introduced  by 
means  of  special  mappings  known  as  multiplications. 

Definition  1.1.3:  A  mg  l.t  i  p  Li_C  at  ion  on  a  group  G  is  a 
mappinq  /j:GxG  — ►  G  which  is  bilinear  with  respect  to  the 
qroup  operation.  p  is  associative  provided 
a,b),c)  =  b,c))  for  all  a,b,c  <=  R. 

Theorem  1.2  CCFulD:  Every  multiplication  on  an  abelian 
group  G  can  be  characterized  by  its  action  on  any  basis  for 
G.  Conversely,  any  mapping  defined  on  a  basis  of  G, 


is 


subject  to  the  condition  o(;j(a,b))  <  min(o(a) ,o(b) } , 
extends  to  a  multiplication  on  all  of  G.  Finally,  a 
multiplication  is  (commutative,  associative)  over  all  of  G 
if  and  only  If  it  is  (commutative,  associative)  over  its 
basis . 

Note:  Each  multiplication  defines  a  (not  necessarily 
associative)  rinq  when  G  is  abelian.  Fuchs  points  out  that 
for  any  qroup  G  the  set  Mult  G  =  (p:  p  is  a  multiplication 
on  G >  is  a  qroup;  its  qroup  operation  is  qiven  pw(a,b)  = 
M(a,b) +v(a,b)  ("+"  is  the  operation  on  G).  Mult  G  is 
abelian  when  G  is.  He  also  notes  that  the  set  of 
associative  multiplications  is  a  subset,  and  normally  not  a 
subqroup,  of  Mult  G. 

Example  1.1.1:  Let  G  =  2/p  ®  2/p.  Let 

/-M  (a^.b^)  ,  (az,bz)  ]  =  (a^,^).  Let 

u  [  (a  , b  ),(a  ,b  )]  =  (a  ,b  ).  Both  m  and  /u  are 
21122  12  1  2 

associative  by  direct  calculation.  However,  (#j  )  is  not 


2.  Introduction  of  basic  “machinery"  for  ring  computations. 
Definition  1.2.1:  Given  R+  an  abelian  group  with  basis 
3  =  {e^,  .  .  ,efc} ,  let 


e 

t 

*k 

e 

IJ(e  ,e  ) 

. .  ^(e  , e  ) 

l 

11 

l  k 

°k 

..  * 

M  is  called  the  multiplication  t&klg.  gji  5.  with  respect  to 
the  basis  3  (denoted  M_  when  basis  identification  is 
necessary) . 


For  brevity  of  notation,  the  symbol  2^[x)  will  frequently 

be  used  to  denote  _ 

P 


Example  1.2.1:  Let  R  =  GF(33),  the  field  of 
One  representation  of  R  is  ^3 [ x  ^ ^  x3+  2x  +  l ) * 
is  3  =  {l,x,x2}.  The  multiplication  table  of 
to  3  is : 


27 

A 

R 


elements . 
basis  for  R+ 
with  respect 


M 


2 

X 


2 


X 

x+2 
x2  +2x 


Remarks : 

1.2.1.  The  multiplication  table  is  crucial  to  all  the 


theoretical  development  in  this  paper,  since  all  the  basic 
computational  results  flow  from  its  analysis. 


1.1.2.  Throughout  this  paper,  bold  letters  such  as  e  and  f 
will  be  reserved  for  rinq  elements,  and  normal ly-typed 
letters  will  denote  scalars.  Further,  e  will  mean 
/j(e^,e.)  .  No  confusion  should  result  from  this  choice  of 
notation . 

As  3  =  {e  ,..,e  }  serves  as  a  coordinate  system  for  G, 

1  k 

one  can  coordinatize  the  basis  multiplication  table  for 
R  =  (R *,fj)  . 

Definition  1.2.2s  The  coordinate  cube  (or  simply  a  cube )  of 
R  =  (R+,/j)  is  the  kxkxk  array  of  coordinates  for  each 
element  e  =  /j(e  ,e  )  of  the  multiplication  table  M.  It 

t.j  >.  j 

will  be  denoted  by  (Ml  (or  f M ] b  when  context  requires  basis 
identification),  and  the  standard  display  will  be 


Further,  if  A  =  min  id  ,d  } ,  then  p  1  divides  m\  when 

t  J  t  J 

>  A.  The  reason  for  this  restriction  is  contained  in 
ProDos it  ion  1.3.1. 

Example  1.2.2:  Let  R+  be  of  type  2 (  4 , 2  )  -  Let 


[Ml  = 


GIG] 

m 


and  [N]  = 


G]  G] 

m 


[M]  represents  a  multiplication  on  R+,  but  [ N ]  doesn't 


Remark  1.2.3:  One  can  view  the  cube  in  three  dimensions, 
and  then  examine  its  s_l_l£fi_a  alona  each  principal  axis. 

These  slices  will  be  used  extensively,  and  so  the  following 
notation  will  be  employed  (See  Figure  1.2,  below): 


Ml  ^  means  the  £-th  horizontal  slice  of  [ M ] 


[Mll#  means  the  i-th  back-to-f ront  slice  of  t M ] 


CM)  means  the  j-th  le f t-to-r ight  slice  of  [Ml 


e  .  .  e, 

(J _ 1 _ k 

e  e  e  , 

t  ii  i  i 


e  e>  .  .  e,  , 
k  k  1  k  k 


a  sample  multiplication 
table  M 


l  ,  .  k 

e  =  m  e  + . . +m  e, 

ij  VI  i  v  j  k 


X  : 

X  m k 

N  <•  J 


Figure  1.2.  A  "picture"  of  a  coordinate  cube. 


If  two  rinqs  R  and  R'  are  to  be  Isomorphic,  they  must  have 
isomorphic  additive  groups  R+  and  R 1  * .  Thus  without  loss 
of  generality,  we  can  set  R+  =  R'+. 

Definition  1.2.3:  We  say  two  multiplications  p  and  v  are 
equivalent  provided  (R+,m)  =  (R+,v). 

Example  1.2.3:  Let  R  =  X  5  /  (  x3+2x+l  )  and 

2  [  X  ]  3 

R'  =  3  /(x3+2xz+1)’  Thev  b°th  represent  GF(3  ),  since 

both  polynomials  are  irreducible  mod  3.  M  and  M'  are. 


% 

r 


r 


By  inspection,  ^  and  v  are  different  multiplications,  but 
they  are  equivalent,  since  all  fields  with  the  same  number 
of  elements  are  known  to  be  isomorphic. □ 


It  is  clear  that  equivalence  of  multiplications  is  an 
equivalence  relation,  and  that  Mult  G  is  decomposed  by  this 
relation  into  disjoint  sets.  The  followinq  results  describe 
how  the  decomposition  is  accomplished. 

First,  some  results  concerning  bases  of  R+: 


Proposition  1.2.1:  Given  R  ,  let  3  =  {e  }  and 

1  i.  t=l 

■2  =  (f  t  ,  be  two  bases  for  R  .  Then  there  exists  a  matrix 

2  v  LSI 

A  €  GL(k  ,2/ptf),  oL  =  max{d>,  such  that 

[e±  ..  ekl'A  =  ••  f 1  (’  means  matrix  multiplication) 

Proof:  Since  is  a  basis,  the  f  can  be  expressed  by: 


f  -  a  e  +  .  .  .  +a,  e 

l  ll  l  kl  k 


f ,  =  a  e  +  .  .  .  +a,  ,  e, 

k  lk  1  kk  k 


a  .  .  a  , 

ll  lk 

[e  . .el  •  :  • .  :  =  [f  . .f  ] . 

Ik  ...  l  k 


a,  •  •  a, , 

•  kl  kk 


(1.2.1) 


Denote  [a  ]  by  A. 

<-j 

Similarly,  since  SB  is  also  a  basis,  the  @  can  be 

2  v 

exDressed  by: 


k 


.  *  i  .  .  «  r  U  a  ■ 

lk  1  kk  k-' 


*■  ki 


•  “kkJ 


(1.2.2) 


Therefore  [f  .  .f,  ]  -  { t>  ]-A  =  [f  .  .f  1,  hence 

1  k  tj  t  k 

[b  )-A  =  I  mod  p^.  Since  A-(adj  A)  =  | A | *  I ,  we  conclude 
that  1 A |  is  a  unit  mod  p^,  hence  A  is  nonsingular.  ■ 

The  converse  of  the  last  proposition  may  not  be  true:  i.e. 

2 

certain  elements  of  GL  ( k ,  /pfiO  acting  on  a  basis  3  may  not 
produce  another  basis. 

Example  1.2.4:  Consider  R  of  type  (4,2),  and  let 

p 

A  is  nonsingular,  but  the  set  {e  ,e  +  e  }  is 

11  2 

not  a  basis,  because  the  additive  order  of  e  +  e  is  p4 

12 

and  not  p2. 

However,  by  restricting  one's  attention  to  a  subset  of 
2 

GL ( k ,  /  d) ,  a  converse  of  sorts  can  be  established.  But 
P 

first,  a  lemma: 

Lemma:  If  3  =  (e  , ..,e  }  is  a  basis  for  R*,  then 
3'  =  { e  ,  .  .  ,  e  ,(a  e  +  .  .  +a,  e,  )  ,e  ,  .  .  ,  e,  }  is  a  basis 

J  .  J  *  4  .  ^  1.  .  L.  .  1  *  1 , 


for  R  if  and  only  if  (a..,p)  =  1,  o()  a.  e  )  =  o(e  ) 

JJ  L  l  j 

Proof:  =*:lf  3'  is  a  basis  for  R  +  ,  then 


_  a. 

o  (  )  a  e  )  =  o  ( e. )  =  p  J 
Z*  <-j  <•  j 


because  of  the  invariant  class 


property  of  abelian  groups.  Further,  (a  ,p)  =  1,  for  if 
not,  the  basis  change  matrix,  which  is 


la  .  .  .  0 
0  . 1 J  0 


0  a,  .  .  1 
k  j 


would  be  singular  mod  p. 


contrad ict ing  the  previous  Proposition .□ 

<=:  Assume  the  converse.  All  that  is  necessary  to  be 
shown  is  that  the  j-th  element  of  3'  is  independent  of  the 
other  elements  of  the  set.  Then  3'  will  be  a  basis  for  R* 
because  the  orders  of  the  elements  of  3  and  3*  coincide. 


Let  c 


e+..+c  e  +c()  a  e  )  + .  .  +c,  e,  =  O  , 
it  j-i  j-i  j  L  vj  v  k  k  r 


Then  (c  +c  a  )e  +  ..+c  a  e  +..  +  (c  a,  +c,  )e ,=  O  .  (1.2.3) 

1J1J1  J  V  j  j  jkjkk  R 


3  is  a  basis,  hence 


{c  +  c 


c  a  =  0  mod  p  ,  j^i 
j  ij 

d, 

c  a  =  0  mod  p  J 


(a  ,p)  =  1  =*  a  1  exists  =>  c  =  p  J-d  for  some  d  <=  Z.  Thus 
jj  j  j  j 

we  have  two  cases: 


1  .  d  <  d  .  Then  c  =  0  mod  p 
>•  j  >- 

dr  d  <jr 

2.  d  >  d  .  Then  c  =  p  J[p  1  J  •  y  -  d-a  ]  for  some 

V.  j  L  tj 


r,d  e  2. 


o(>  a  a.  )  =  0  ( a , )  -*■  p  J|  a.  for  all  d>d. 

<•  )  '•J  >•  J 

d 

Therefore  c  =  p  Lly  -d ■ b  ]  for  some  y,d,b  e  2.  Thus 

V  VJ  vj 

we  have  c  ,..,c  =0.  ■ 

1  k 

Proposition  1.2.2:  Let  3  be  a  basis  for  R  ,  A  e  GL ( k  ,  /  d) 

1  P 

with  the  followinq  restriction: 

D  J|a  for  all  d  >d  a  e  /  d  . 

>-J  >•  j,  vj  p  V 

Then  3  =  {£  a  e.,..,Ea.,e.}  is  also  a  basis  for  R+. 

2  j  i  j  j  k  j 

j  j 


Proof:  Repeated  application  of  Lemma.  Here's  how: 

Because  A  is  nonsingular  mod  p,  |A|  is  a  unit  mod  p  =*  there 
exists  a  <=  Sk  (the  permutation  group  of  k  letters)  such 
that  a  •••'a,  ,  is  a  unit  mod  p.  Rearrange  3  to  be 

10(1)  kcrik)  i 


(e 


O'!  1) 


.,e  }.  Let  3  =  (T  a.  e  ,e  ,..,e  ,  } 

<yik)  2  vo*<i)  v  <y<2>  cr<k> 


The  conditions  of  the  Lemma  are  now  satisfied,  and  so  3  is 


a  basis.  Continuing  the  chain  of  transitions,  the 
proposition  now  follows.  ■ 


Notice  that  in  the  proof  of  the  proposition,  A  had  to  be 

restricted  in  the  case  of  rings  of  mixed-order.  In  free 
2 

/  d  -  modules,  this  isn't  necessary,  and  in  this  case,  any 
2 

matrix  A  e  GL ( k ,  /  d)  will  transform  one  basis  into 


another,  in  order  to  make  clear  what  the  restriction  means, 
assume  that  a  mixed-order  rina  R  has  two  bases  arranged  In 
natural  order  (something  not  necessary  to  the  proof  of  the 
previous  propositions).  Then  the  transition  matrix  would 
satisfy  the  following  equation: 

(e  . .  e  I -A  =[f  ..  f,  J  (•  means  matrix  multiplication ) . 

1  k  1  k 

d 

Because  o(J>  e.  )  =  o(f  )  =  p  J,  we  have 

v-J  <■  J 

d  -d 

p  v  J|a  for  all  i  <  j ,  since  o(e  )  >  o(e  ).  The  basis 

ij  <.  >.+i 

change  matrix,  then,  has  an  upper  triangle  restricted  to 
elements  divisible  by  appropriate  powers  of  p.  Thus  the 
set  of  basis  change  matrices  for  any  mixed-order  ring  R  is 
a  proDer  subset  of  GL ( k ,  •  This  is  the  motivation  for 

the  following  definition: 

Definition  1.2.4:  The  set  of  all  basis  cha:  ge  matrices  for 
a  particular  group  R*  will  be  known  as  the  set  of 
Transition  Matrices  of  the  group  R+.  It  will  be  denoted  by 

Tran  ( ct  ) k  .  Specifically,  Tran  ( d  )k  - 

i  i=i  i  i=i 

^  ~d- 

(A  «  GL  (  k  ,  /  d )  |  i=max  { d  }  ,  p  cy<°  °^J>  |  a  .  } , 

P  1  0'd)0'<J> 

where  cr  e  S,  ,  the  symmetric  aroup  of  k  letters  and 


It  is  not  necessary  to  restrict  a  «  /d  ,  because  of 

i.j  p  L  ' 

the  followinq  proposition: 

Proposition  1.2.3:  Let  3  be  a  basis  for  R+, 

A  ,A  e  Tran  (d  )k  .  Then 

12  l  1=1 

[e  .  . e  ]  -A  =  [e  .  .e,  3  -A  if  and  only  if  [A  1  =  [ A  ]  .  m< 

1  k  1  1  k  2  l  v*  2 

for  all  i  =  1, .  . , k  . 

Proof:  A  straightforward  computation.  ■ 

Proposition  1.2.3  implies  that  one  can  think  of  a  "unique 
d 

mod  p  transition  matrix  between  two  bases  for  R* . 

Jc 

Proposition  I. 2. 4;  Tran  C d  )  is  a  subqroup  of 

L  L  =  1 

GL(k,Z/  d) . 

P 

Proof:  It  is  only  necessary  to  consider  the  mixed-order 
rinq  case.  Must  show  that  if  A  ,A  e  Tran  ( d  )  .then 

12  V  L  =  1 

-i  Jc  —  1 

A  -A  is  in  Tran  ( d  )  .  That  A  exists  in 

12  i  i=l  2 

Jc 

Tran  (d  )  is  clear,  for  it  is  the  transition  mapping 
from  A  (3)  back  to  3 .  The  composition  of  two  changes  of 
basis,  which  is  the  product  of  two  transition  matrices,  i 
a  chance  of  basis,  and  thus  is  a  transition  matrix.  This 
completes  the  proof.* 


The  following  theorem  Is  well-known,  it  is  expressed  here 
In  a  way  consistent  with  the  notation  developed  thus  far. 

Theorem  1.3  IFuls  Given  Ri=(R+,p),  Rz=(R+,v>)  two  finite 
p-rinqs.  Then  R^  =  Rz  if  and  only  if  there  exist  two  bases, 
3  and  3',  for  R  and 
R  respectively,  such  that  [Ml  =  t N 1  . 

2  B  B' 

Proof:  Some  preliminaries  for  use  in  this  theorem  are 
necessary: 

Let  3  =  { e  , . . , e  }  .  Then 

1  k 


=>:  SuDPose  R  =  R'.  Then  there  exists  a  ring  isomorphism 
<p:R — >R '  such  that  *>(a+b)  =  ^(a)+^(b)  and 
*?(g(a,b))  =  v>  ( <p(  a  )  ,  <p(  b  )  )  for  all  a,b  e  R. 

It  is  straiqhtf  orward  to  show  that  3  •  =  {<p(  e^) ,  .  .  ,  <p(  efc ) }  is 

also  a  basis.  Now  the  followinq  tables  are  identical: 

v  \<p(e  )  ...  <p(e,  ) 

-  1 - k - 

Nb'=  ^  ( <p(  )  )  .  u(i»(e  )  ,qo(e  )  ) 

•  •  •  • 

•  •  •  • 

<p(e  )  v{<p(&  )  ,<p(e  )  )  .  .v(<p(e  )  ,<p{e  )  ) 


3.  Some  computationally  obtained  properties  of  a  ring. 
This  first  Proposition  was  known  to  Baumgartner  tBaJ  and 
Toskey  tTol  in  other  guises. 


Proposition  1.3.1:  Let  3  =  {e  , ..,e  }  be  a  basis  for  R  , 

Z 

o(e  )=p  .  Let  [M]  be  a  coordinate  cube  over  /  d, 

<•  P 

d  =  max  {dL  }  .  Then  [Ml  represents  a  (not  necessarily 

i. 

associative)  multiplication  on  SS  if  and  only  if 

dL  dL  d  dL 

min  {p  ,p  ,  p  1-m,  =0  mod  p  . 

<-j 

Proof:  This  is  another  way  of  expressing  Theorem  1.2.  To 


see  this,  note  that  o(e  )  <  min  {o(e.),o(e  )} 

j 


d  d 


d,  dL .  d 


min  {p  v,p  J}  •  e  =  O  ♦♦  min  {p  v,p  J,p  r}-mr  =  0  mod  p  r, 

vj  R  Vj 


r=l,..,k.  Using  Theorem  1.2,  the  Proposition  now  follows 


Corollary  1.3.  la:  Given  3  and  [Ml  as  above,  3  in  natural 

order.  Then  [Ml  represents  a  multiplication  on  the  basis  3 

d  -d 

if  and  only  if  p  J  divides  m^  for  all  i,r  S  j,  and 
d  -d 

d  r  L  divides  mr  for  all  j,r  <  i. 

>-j 


In  other  words,  the  slices  [Ml*  and  (Ml*  have  the  same 
upper  triangular  structure  as  do  transition  matrices.  Of 
course,  they  need  not  be  nonsingular. 


n 

Iw 

O 


ra1 


:;l 


t 


&5 

'.V 

•iN 

«.ri 


Corollary  1.3.  lb:  If  R  is  a  free  /^ct-module,  then  every 


cube  represents  a  multiplication  on  3. 


Proof:  if  R  is  a  free  /pri-module,  then  R  is  of  type 


{d,d,  ..<£),  and  thus  by  the  proposition,  no  restriction  on 


[Ml  is  imposed. i 


Proposition  1.3.2:  Given  the  same  conditions  in  Proposition 


1.3.1,  [M]  represents  an  associative  ring  if  and  only  if 


[Ml*  -[Ml*  =  [Ml*  -[Ml*  for  all  i,t  =  l,..,k. 

t  *t  \.  * 


(This  above  result  was  shown  in  I  Wl  ] ,  but  this  proof  is 


more  elementary. ) 


Proof:  By  definition  (and  Theorem  1.2),  a  multiplication 


table  M  is  associative  provided 


(e  )e  =  e  (e  )  for  all  i , j , t=l , . . , k .  This  means  that 

Vj  t  jt 


1  Jc  1  k 

m  e  +..+m  e  =  m  e  +..+m  e,  for  all  i , j , t=l, . . , k . 

W  «  <-j  kt  Jl  U  Jt  ik  (13  1) 


t  _  8 


t  __  8 


* »«•.  *  n,ue.- 

*  ...  (1.3.2) 


Regrouping  terms,  we  get 


Eu  1  .  _  u  Jc  _ui  ,_ut 

m  m  e  + .  .  +y  m  m  e,  =  y'm.m  e  +..  +£  m  m  e 
v.j  ut  1  cj  ut  k  ^  jt  vv  1  ^  jt  iv  t 


(1.3.3) 


As  both  sides  of  the  equations  are  inner  products,  one 


obtains 


Which  in  turn  aives 


r  1  k  1  -1 

L  LJJ  m1 


r  i  k  i 

nr  .  .  ml-  . 

L  Jl  jlJ  m1 


1 

k 

l. 

m 

vl 

t* 

1 

k 

l 

m 

tk 

Ik 

Since  this  identity  holds  for  all  i,j,t,  the  following 
matrix  identities  also  hold,  letting  j  range  from  1  to  k 


•  r 

e. 


which  one  can  see  is 

[e  ..  el- [Ml*  -[Ml*  =  [e  .  . 

1  k  *t  v*  1 

Thus  the  Proposition  is  proven, 


Proposition  1.3.3:  A  rinq  R  is  commutative  if  and  only  if 
its  cube  has  the  property  that  [M]^  is  symmetric  for  all 
r  =  l,  . . ,  k . 

(tWll  gives  an  equivalent,  though  "longer"  test;  namely. 


23 


L-* 


toy 


[Ml^for  all  i=l,..,k. 


that  [Ml  . 

Proof:  Again  usinq  Theorem  1.2,  a  rinq  is  commutative  if 
and  only  if  its  multiplication  table  is;  i.e.  if  and  only 


if  e  =  e  for  all  i,j=l,..,k,  i*j. 

VJ  Jt 


The  result  immediately  follows  by  examininq  the  slices 
[  M 1  ,  which  are  the  r-th  coordinates  of  the  e  .  ■ 

mm  \.  j 


The  siqnificance  of  this  next  proposition  is  that  once 
the  i-th  row  and  column  of  one  cube  representinq  R  are  made 
to  aqree  with  the  i-th  row  and  column  of  another  cube 
representinq  R,  then  the  correspondinq  basis  elements  e 


and  f ^  of  3^  and  3^,  repsect ively,  "behave"  the  same,  and 


the  basis  chanqe  matrix  should  not  modify  them. 


Proposition  1.3.4:  Given  two  cubes  [M]  and  I N ]  such  that 


[  M  ] 


=  i N 1  ,  [Ml  =  [NJ  for  some  i  =  l,..,k 


Then  column  i  of  the  transition  matrix  A  is  column  i  of  Ifc, 


the  kxk  identity  matrix. 


There  are  two  other  very  important  properties  of  a  rinq 
which  must  await  machinery  to  be  derived  in  Chapter  III; 
namely,  when  does  a  rinq  have  a  1,  and  when  does  a  rinq 
have  a  central  idempotent  other  than  a  1  or  O? 


II.  RING  ISOMORPHISMS  AS  A  GROUP  ACTION 


1.  Basic  Terminology  and  Results. 

The  cube  as  a  mathematical  object  has  merit  in  its  own 
right,  not  just  as  a  potential  representative  of  a  finite 
ring.  In  this  chapter,  the  cube  will  be  presented  in  its 
most  general  form. 

2 

Let  3  be  the  set  of  all.  cubes  over  /  ^d  of  size  k; 

A  2 

i.e.,  3  =  {[Ml  =  [mu]|mu  e  /  d  ,  i ,  j  ,  u  =  l ,  .  . ,  k }  .  One  can 

*-j  <-j  P 


perform  coordinate-wise  addition  and  multiplication 


mod  /  d  ,  and  thus  X  = 
P 


Z 


V 


as  a  ring  and  as  a 


Z 


/  d  -  module 
P 


Definition  II. 1.1: 
A  1  =  (a  ) .  Define 

>-j 


Let  A  e  GL ( k ,  /  d) , 

P 

T  :  3  — ►  X  ,  where 

A 


A 


[ r  ( [mi ) ] 

A 


u 

<•  J 


k 

Ea, 

t  =1 


t 

a  m 

sj  ut  rs 


( a  )  ,  and 


( II .1.1) 


Since  7  ((M)+[N1)  =  T  ((Ml)  +  T  (tNl)and 

A  A  A 

z 

T  (c-(Ml)  =  c-T  ([Ml),  c  e  /  d.  T  is  seen  to  be  a 

A  A  p  A 

Z 

/  d  -  linear  homomorphism  and  thus  has  a  matrix 
o 

representat  i  on  with  respect  to  a  (rina)  basis  for  31. 
Viewed  as  a  rinq,  3  has  a  basis 


3 


=  l ( j  1  |  i , j , u  =  l , . . , k } ,  where  the  only  nonzero  entry  of 

( Tu  ]  is  mu  =  1.  Further, 

>■  j  >-  j 


T  (CM)) 

A 


T 

A 


<  E 

i-  •  j  . 


U  f 

m  [  T 
*■  J  >-j 

u 


] ) 


=  E  mu  •  T  (  [  Tu  n  . 

«-J  A  tj 


(II  .1.2) 


Therefore  [ N 1 ' 


>■  j 


=  IT  (  (Ml  )  ]u  =  E 

A  VJ  r  =  1 


k  k 

_  _  t 

E  E  a  a  a  ,m  -*■ 

rv  sj  ut  r  8 

S  =  1  1=1  (II. 1.3) 


r  l  - 

n 

ii 

"a  a  I 

u  ii  ii 

*  *  * 

a,  a,  a  , ' 

kl  kl  lk 

r  l 

m 

ii 

k 

LnkkJ 

a  ,  a  ,  i, 

L  Ik  lk  kl 

* 

a  a  a 

kk  kk  kk-l 

k 

-mkk- 

which  is  a 


system  of  k3  equations.  The  matrix  above  is  the  matrix 
representation  of  T ^  with  respect  to  the  basis  3.  It  will 
be  denoted  by  J£(A),  and  will  be  referred  to  later  in  the 
paper . 


Proposition  11.1.1:  Given  A,  B  e  GL  (  k ,  /pOt)  ,  [Ml  e  X.  Then 


T  ( (Ml)  =  T  (T  ( f  M 1  ) ) . 

A  '  B  BA 


Proof:  From  Definition  II. 1.1, 

k  k  k 

(J~  (  ( M  ]  )  l  ^  =  (E  a  •  (E  a  -<Ea  ml  ))],  which  implies 

A  t  j  rv  sj  ut  rs 


r  =  l  8  =  1  1  =  1 


k  k  k 

IT  (  T  (  (  M  ]  )  )  ) u  =  (Eb  -(Eb  •  (  E  b  [T  (  [  M  ]  )  ) x  ))}  , 

BA  lj  vi  vj  ux  A  vv 

V  =  1  W  =  1  X  =  1  (II.  1.4) 


( E  b  •  <  E  b  -(Eb  [  E  a  •  ( E  a  •  <E  a  m  )  )  ) .  (II. 1.5) 

vl  w  i  n v  ™  rv  aw  v ♦  ra 
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-i-i , 


Now  IT  (CM])]  =  [  E  (  AB  )  •  (  E  (  AB  )  •  (  £  (  B  A  )  m  )  )  ] 

A  B  tj  _  _  r  l  sj  _  ut  rs 

(II  .1.6) 


r  =  1 


t  =1 


=  [£•(£  a  b  )•(£•(£  a  b  )•(£•(£  b  a  4 

rvvv  awwj  uxxt 


)  m  )  )  ]  . 


r  -  1  v  =  1 


s  =  1  v  =  1 


t  =  1  X  =  1 


(II. 1.7) 


Rearranainq  the  terms  of  (II. 1.5)  and  (II. 1.7)  produces 
equality.  ■ 


The  previous  Proposition  shows  that  GL ( k 
action  over  X. 


'V> 


is  a  group 


Definition  II.  1.2:  A  cpjnmu.tatj._ve.  cube,  is  any  cube  such 
that  EM) ^  is  symmetric  for  all  r=l,..,k. 


Observe  that  the  set  ffi  of  commutative  cubes  is  a  linear 
subsDace  of  "X.  Also  note  that  by  the  definition  of  T  ([Ml), 

if  (M)  is  commutative,  so  is  T  (  [  M  ]  )  .  Thus  CT  is  an 

A 

invariant  subspace  under  the  qroup  action  T  .  This  makes 

A 

T  reducible  into  a  direct  sum  of  transformations,  and  J?(A) 

A 

is  thus  similar  to  a  block  diagonal  matrix.  The  author  did 
not  exDlore  any  further  into  this  area  due  to  the  very 
larqe  matrices  involved. 


Definition  II. 1.3:  For  (Ml  <=  X,  define 


©(  (MI  ) 


=  iT  ( [ M ] )  | A  e  GL(k ,/d)}.  © ( t  M ] )  is  called  the 

A  P 

orbit  o_f  C M ]  . 

It  is  clear  that  £  is  partitioned  by  this  action. 

Definition  II. 1.4:  For  [ M ]  <=  X,  define 

Stab  (  r  m  ]  )  =  (A  e  GL(k,Z/  i)|r  (  [  M  ]  )  =  [  M 1  >  .  StabUMl)  is 

P  A 

called  the  stabilizer  oJL  [_M]_. 

Definition  II. 1.3:  We  say  [M],[N]  e  X  are  equivalent 
provided  [Ml  and  [ N 1  are  in  the  same  orbit. 

Proposition  II. 1.2:  Given  [Ml  equivalent  to  [N], 

T  ([Ml)  =  r N 1 .  Then  T  ([Ml)  =  [ N ]  if  and  only  if 

A  A  '  B 

B  e  Stab ( [N1 ) . 

Proposition  II. 1.2  a:  ( Alternate  )  Given  J"  ([M])  =  t N 1  .  Th' 
T  ([Ml)  =  ( N  1  if  and  only  if  B  *■  A  e  Stab(  [Ml  )  . 

Proof:  Both  are  proven  using  Proposition  II. 1.1  and  the 

above  definitions.* 

Remarks. : 

II. 1.1.  Two  cubes  have  the  same  number  of  elements  in 


their  stabilizers  when  they  are  equivalent.  However,  th 


converse  is  in  qeneral  false. 


II. 1.2.  Equivalent  cubes  need  not  even  share  the  same 
stabilizers.  Hence,  stabilizers  cannot  be  used  to  discover 
how  to  break  down  Tran  ( d  )  into  some  partition 

t  l.  =1 

analaqous  to  the  orbits  of  a  cube. 

2.  The  effect  of  elementary  matrices  on  cubes. 

In  linear  alqebra,  there  are  three  matrices  which  perform 
the  three  elementary  row  operations  on  a  system  of 
equations  : 

1.  The  permutation  matrix  S  which  swaps  rows  i  &  j. 

S  is  a  symmetric,  involutory  matrix. 

2.  The  scalinQ  matrix  D  =  diaq(a  ,..,a ,)  which 
multiplies  row  i  by  an  invertible  constant  a^.  D  is  a 

diaqonal  (hence  symmetric)  matrix  with  obvious  inverse. 

3.  The  elimination  matrix  E  which  takes  row  j  and 

3  .  , 

adds  a  -row  i  to  it.  This  matrix  is  neither  symmetric  nor 

<-j 

involutory;  its  inverse  is  E_ 

3 .  . 

V-J 

2 

Since  all  matrices  in  GL ( k ,  /  d)  are  products  of  these 

P 

matrices,  and  since  T  is  a  qroup  action  on  it  would  be 

A 

fruitful  to  analyze  the  effects  of  these  elementary 
matrices  on  a  cube  [Ml. 

To  facilitate  notation,  the  word  "ilk"  will  denote  m 
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& 


in  M,  "il"  will  denote  a  in  A,  and  "ij"  will  denote  a 
in  A  . 


The  following  propositions  are  determined  by 
tabulatinq  equation  (II. 1.1),  and  hence  their  proofs  are 
omitted : 


Proposition  II. 2.1:  swaps  rows  and  columns  i  and  j  of 

i  j 

[Ml,  and  within  each  coordinate  stack  swaps  entries  i  and 
j.  The  picture  follows: 


& 

r.\\ 

Kv 

few 


T  ((Ml)  = 
s 


K 


'111' 

rml 

rml 

riki" 

llj 

1  j  j 

li  j 

lk  j 

Hi 

•  • 

1  j  i 

•  • 
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*  • 

lk  i 

Ilk 

ljk. 

_lik_ 

lkk_ 

rml 

‘j  jl' 

[jill 

rjkii 

jlj 

j  j  j 

j  i  j 

jk  j 

jli 

•  • 

j  j  i 

•  • 

j  i  i 

jk  i 

j  lk 
« 

• 

.j  jk. 

[j  ik J 

_jkk_ 

'ini 

rml 

■m- 

rikr 

il  j 

i  j  j 

ii  j 

ikj 

ili 

•  * 

i  j  i 

•  • 

i  i  i 

*  • 

ik  i 

_i  ik  _ 

_i  jk_ 

_iik_ 

_ikk_ 

*kll" 

fkjll 

■kiil 

[~k  k 1  "1 

klj 

k  j  j 

ki  j 

kk  j 

kli 

•  • 

k  ji 

•  # 

k  i  i 

*  • 

kki 

klk 

k  jk 

kik 

kkk 
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• i 
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Proposition  II. 2. 2:  The  diagonal  matrix 
D  =  diaq(a  ,a  ,..,a,),  acts  as  follows: 

12  k 


T  ([Ml)  = 

D 


_k  k  •  kill 
kk • 22 • 11 • kl 2 


11-  klk 


2 2  •  kk  •  11  ■  k 21" 

"  kk2 

11  • 

kkl" 

kk  • 

k  2  2 

kk2 

22 

kk2 

22  • 

k  2k 

kk  • 

kkk 

Proposition  II. 2. 3:  For  I<  i,j  <k,  i  *  j ,  T  ( [ M ] )  is: 

E 

a 

>-J 


column  1 


"111 

lli-i j • 11 j 

•  • 

lik 

'ij  •  ill  +  jll 

1 

ij  •  ili-ij2ilj^-jli-ij  •  jlj 

. 

_ij  ■  ilk  +  jlk 

J 

L 

"k  11 

r 

kli-i j • kl j 

.  • 

klk 

13  ■ 

i  j  • 


lil  +  lj  1 
z 


13  ' 


lii-ij  •  lij+-lji-ij  •  1  j  j 
lik+1  jk 


.  2 


1  3 


iil+ij • jil  +  i  j • ijl+jjl 

2  5  .  3  .  ,  ,  ,  ,  2 


i  j  ’  iii-ij;iij*ij  •  j  i  i  -  i  j  •  3  i  j  +" 
_ij-ii3-i3?i33+  3ji-ij-333 


.  z 
1  3  • 


i  i  i 
•  i  i  3 

iik+ij • jik+ij • ijk+jjk 


i  3  • 
i  3  • 
i  3  • 


kil+kjl 
.  2 


kii-ij -kij+kji-ij  -  kjj 
k i k  +k  j  k 
column  j 


Space  prevents  writing  every  row  and  column,  but  the 
pattern  is  clear:  All  rows  of  vectors  except  row  i  look 
like  row  1  or  k.  Similarly,  all  columns  of  vectors  except 
column  j  look  like  column  1  . 


Note:  For  i 


1  and/or  j 


k,  the  effect  is  not  quite  the 


same;  nonetheless,  the  computation  is  stra lqht forward ,  and 
will  be  made  when  necessary.  These  three  have  been  shown 
for  illustration. 


3.  Restriction  to  the  ring  case. 

In  this  section,  terminoloqy  defined  in  Section  II. 1  will 
he  used  in  a  new  context;  in  fact,  the  two  contexts  are 
very  closely  related. 

We  will  look  at  a  group  action  on  the  set  Bt  of 
multiplication  tables  on  R. 

Definition  II. 3.1:  Let  A  <=  Tran  ( d.  ) k  ,  J8  =  (e  }  in 
natural  order.  Let  M  be  the  multiplication  table  of  v  with 
respect  to  3.  Define  A(  •  )  :1Jt— such  that 


rl 

0  , 

-  M 

e  .  . 

e 

_ ^ _ 

rlj 

0 

•I 

A  (  M  )  = 

0 

at 

e 

l 

e 

1 1 

e 

Ik 

0 

A 

_ 

_ 

e 

L  k 

e 

k  l  .  . 

e 

kkJ 

a 

In  shorthand,  A ( M )  =  AT*M*A. 

Observe  A  ( M )  is  the  multiplication  table  of  fj  on  R+ 

k  k 

with  resDect  to  3’  =  {  £  a  @  ,  . .  ,  V  a  ,  »  }.  The  following 

ill  v.  k  i 

1  =  1  >.  =  1 

properties  hold: 

(1)  If  M  is  an  associative  or  commutative  table,  so  is 
A  (  M  )  . 

(2)  If  A , B  e  Tran  ( d  } k  ,  then 

V  L  =1 

( AB ) ( M )  =  (AB)T*M*(AB)  =  (BTAT)*M*AB  =  BT*A(M)*B  =  B ( A ( M ) ) . 


Thus  A( ■ )  is  mu 1 t i ol i ca t i ve ,  and  hence  is  a  group  action  on 
the  set  of  mu  1 1 i pi ica t i on  tables. 

(3)  and  Mz  represent  the  same,  multiplication  /j  (with 
respect  to  different  bases)  if  and  only  if  there  exists 
A  e  Tran  ( d  ) k  such  that  A(M  )  =  M  . 

t  v  =  1  }  2 

There  is  a  mappinq  analagous  to  A( ■ ) ,  except  operating 
on  cubes  representing  rings: 

Definition  II. 3. 2:  Given  A  e  Tran  ( d,  ) k  ,  M  a 

l  1  =  1 

multiDlication  table  of  tu  on  R+  with  respect  to  a  basis 
[Ml  its  coordinate  cube.  Then  A ( [Ml )  is  defined  to  be: 
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A  - 

In  shorthand,  this  is 

T  Z 

(Ik®  A  )-diag  ■  (Ik«  A),  t  -  l,..,k,  where  ®  is  the 

Kronecker  product  of  two  matrices. 

This  operation  can  be  visualized  as  follows: 


^  x 
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X 
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\ 

I®AT  •  (Ml  I ®A  =  A( [ M 1  ) 

a  B 


Figur©  II. 1. 


Representation  of  AUM)>  on  the  cube  CM], 


M  a 


Proposition  II.  3.1:  Given  A  in  Tran  ( cL 


multiDlication  table  of  aj  with  resDect  to  a  basis  3,  [ M ] 

its  coordinate  cube;  then  A((M1)  is  the  coordinate  cube  for 
the  multiplication  table  A(M)  of  u  but  whose  coordinates 
are  with  respect  to  £. 

T 

Proof:  For  simplicity,  the  augmentations  of  A  and  A  ,  and, 

in  turn,  the  basis  rows  and  columns  of  M  can  be  dispensed 
with.  Thus,  by  abuse  of  notation. 


A  (  M )  = 


11 


Icl 


l-a  lk 


kk' 


11 


lk 


kl  .  .  kk 


11 


lk 


j  Lakl 


kk-* 


£a  e 

u  ti 


E\4e,k 
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■  Lk  l! 


£  \„eutJ  La„, 


1 1 


‘  lk 
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Jl  Vt  LJ 

J  '• 
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jk*-4  Ll  Lj 

J  l 
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Jl  vk  LJ 


E3  JD*  . e 

jk  Lk  lj 
J  L 


J  k  x  k 


Representinq  e  by  its  coordinates  [m  1,  u=l,..,k,  A(M) 
>-j  *■  j 


corresponds  to  the  cube 


IT] 


£a  E3  [m  ]  ...  £a  u£a  tm  ] 

Jl  Ll  LJ  jk“Ll  LJ 

J  L  .  J  L 


2>  E3 

Jl  Lk  L  J 


Ea  E3  [m  1 

jk  Lk  lj 
J  L 


where 

'  u=l,  .  . , k 


k  x  k  x  k 


Note  that  f T ] „  is  precisely 
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£a .  £a  .  m 

ji  i.i  \.j 

j  »• 


lx>  ,z> . -m:. 

L  Ji  ik  vj 
J  «• 

AT- [ Ml"  • A.  Thus  I T ] 

*Mr  B 


Z>  .  2>  ‘  m 

jk'-'tl  x.  j 
J  i 


£a  ,£a  -m 

jk  i-k  >.j 

J  <• 


,  which  is 


k  x  k 


=  A( [Ml  ),  which  proves  the 


Proposition 


In  order  to  make  use  o£  Theorem  1.3,  there  must  be  one  more 
operation  on  the  cube  A((M]  )  so  that  it  represents  A(M)  in 

B 

the  coordinate  system  £'  =  {  £  auet'  •  •  >  E  >  namely, 

1=1  i=l 

to  multiply  each  coordinate  stack  by  A-1 — specifically,  one 


must  find  A 


for  every  i,j=l,..,k. 


This  can  be  streamlined  by  computinq  A  '[AHM]  )] 

or  A  1  ■ t  A ( [ M ]  )]*  for  each  i  or  j  =  l,..,k.  To  illustrate: 

a  »j 


A  (  [  M  1  ) 

B 


[A(IM]  H 

B  B- 


rigur®  II.  2.  Pvcture  of  a  chang®  of  basts. 

-1  * 

This  fiaure  corresponds  to  A  •  [ A < [ M ]  )]  .  For 

B  L  » 

-i  m 

A  • [ A( t  M ]  )]  ,  the  slices  would  be  le f t-to-r ight  rather 

B  *J 

than  back-to-f ront .  The  cube  on  the  right  corresponds  to 
the  mult iDl icat ion  table  A(M)  with  respect  to  the  basis  3 ' . 


5WV-* 
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The  following  is  the  main  result  of  this  section.  The 
significance  of  this  theorem  is  that  the  one-line  formula 
defined  by  X  ([M])  is  a  simple  means  of  computing  cubes 
representing  rings  which  are  equivalent  (isomorphic)  to  the 
ring  represented  by  CM]  .  Further,  it  ties  together  the 

B 

abstract  group  action  and  the  multiplication  table  of  a 
ring.  Finally,  if  R  is  a  free  /  cL  -  module,  it  shows 
Mult  R+  =  X;  if  R*  is  the  direct  sum  of  free  modules. 

Mult  R+  is  isomorphically  imbedded  in  X. 

^  lc 

Theorem  II. 1:  Given  R  with  basis  3  =  {e  }  , 

t  i=i 

A  <=  Tran  ( *n  ) .  ,  M  and  (Ml  the  multiplication  table  and 

L  l —X  B  B 

cube  for  (R+,g)  with  respect  to  3. Then 
T  ([Ml  )  =  [  A(  [  M  ]  )]  ,  where  3'  =  {£a.  e,..,Ea,@}. 

i=l  i =1 

Proof:  First,  evaluate  AUM]  ),  which  from  Definition 

B 

1 1 .  3 . 2  is  : 
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Recall  that  this  is  the  horizontal  "slicing"  operation 
depicted  in  Fiqure  II. 1.  Thus  for  slice  u  of  the  cube 
A ( [ M 1  ) ,  we  get 

B 


(A( [Ml  ) ]  .  =  £  £  a  a  m  . 

B  vj  “  “  n  si  rs 

r  =  1  s=i 


(II .3.1) 


This,  as  was  said  before,  is  the  representation  of  the 


multiplication  table  A(M),  but  with  coordinates  in  terms  of 


the  basis  3.  To  transform  these  coordinates  to  those  of 


3',  [A( (Ml) ]  must  be  computed.  Thus  we  qet 

B  B 


[  fA(  [Ml  )  ]  ] u  =  £  £  £aaamt 

B  B  r  =  1  S=1  t  =  l  rL  "J  Ul  r" 


which  is  how  IT  ( [Ml ) 1 u  is  defined.  This  proves  the 

A  «.  j 


theorem .  i 


This  leads  immediately  to  the  following 


Theorem  II. 2:  Given  an  abelian  group  R  with  basis 


1c  + 

3  =  {e  }  ,  g  and  v  two  multiplications  on  R  ,  [M]  and  [ N 1 

L  V.  =1 


the  respective  coordinate  cubes  with  respect  to  3.  Denote 


(R  ,/j)  by  R  and  (R  ,u)  by  R  . 

1  2 


Then  R  =  R  if  and  only  if  there  exists  a  matrix 
12 


A  e  Tran  (m.)  such  that  T  ([M])  =  [N 1  . 

<-  1  =  1  A 


Proof:  By  Theorem  1.3,  we  know  R^  =  R^  if  and  only  if 


there  exists  A  e  Tran  (m)  such  that  [Ml  =  [N1  .  So, 

l  t=l  B  B' 


if  R  =  R  ,  we  aet  fN]  =  A([M]  ),  and  Theorem  II. 1  above 

12  B  B 


brings  us  the  rest. a 


The  converse  is  straightforward,  again  by  Theorem  II. 1 


and  then  applying  Theorem  I.3.B 
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Remark  2.3:  The  development  of  the  qroup  action  in  the  more 
qeneral  settinq  has  an  interestinq  application  in  the  area 
of  algebraic  cr vptoqraphv .  Due  to  the  peripheral  nature  of 
this  subject  to  rinq  theory,  only  a  brief  discussion  will 
be  given. 

One  can  think  of  a  cube  as  a  numeric  representation  of 
an  alphanumeric  message.  The  transition  matrix  would  then 
serve  as  an  encoding/decodinq  matrix,  and  the  imaqe  T  ( [ M  ]  ) 

A 

would  be  the  enciphered/deciphered  text.  In  the  usual 
cryptography  problem,  one  is  given  [ M ]  and  T  (CM])  and  is 
asked  to  find  A.  The  matrix  representation  £{A)  suggests 
that  there  is  no  linear  method  of  subdividing  the  cube  in 
such  a  wav  that  A  can  be  easily  found.  In  fact,  the 
solvability  of  the  quadratic  identities,  to  be  introduced 
in  Chapter  III,  and  the  solvability  of  the  cryptography 
problem  are  equivalent.  In  a  future  paper,  the  author 
hopes  to  present  a  crvptoqraphic  application  of  the 
operator  T  ( [ M ] )  . 

A 


III.  IDEMFOTENTS  AND  THE  STRUCTURE  OF  FINITE  RINGS 


I.  The  Quadratric  Identities. 

Theorem  II. 2  can  be  restated  in  terms  of  matrix  equations 
not  involving  A-1.  These  eauations  are  obtained  bv 
exDressinq  the  eauation 

T  (  [Ml  )  =  [A(  (Ml  )  1  =  IN]  ( III  .1.1) 

A  B  B  B  B 

in  terms  of  the  basis  £  rather  than  £' . 

Theorem  III.l:  if  and  only  if  the  following  system 

]c 

of  equations  are  satisfied  for  some  A  e  Tran  ( d  )  : 

K  L  =1 

1)  (AT[Mlf  A]  m  =  [AIN]*].  i.t  =  1 ,  .  .  ,  k  .  (III. 1.2) 
2)  i  AT-  (  (M]^)T- A]j#  -  I A I N  1  *  1  ^  j  ,1  =  1 ,  .  .  ,  k  .  (III. 1.3) 

NOTE:  These  formulas  will  be  referred  to  as  the  quadratic 

ident  i.t.i.@-S._s. 

Proof:  These  eauations  are  derived  with  the  help  of  Figure 

II.  1,  which  is  reproduced  here: 


^  \ 

N 

\ 

^  \ 

N 

N  N 

\ 

\  N 

\ 

\  \ 

\ 

\  \ 

\ 

i»at 

[Ml 

B 

I®A 

A(  [  M  ] 

B 

Instead  of  next  oerformina  the  basis  chance  operation  to 
□  reduce  [A((M]  )]  =  [  N  1  ,  alter  [ N ]  instead  by 

B  8  B  B' 

multiplying  by  I®A  as  pictured  below: 


I ®A  [ N ]  =  A( [ M ]  ) 

B  '  B 


Figure  III.  1.  Modified  form  of  Basis  Change  Step. 

This  aives  us  the  equality  A ( t  M 1  )  =  [ N  J  instead.  Notice 

B  B 

that  both  cubes  are  expressed  in  terms  without  reference  to 
A'1.  Lookinq  aqain  at  the  pictures  below,  (the  cubes  are 
with  respect  to  X) 


\ 


\ 


T 

I  ®A 


\ 

\ 

\ 

\ 

(MI 

I®A 

\ 

V 

A-  [N  ]* 

i  * 


Figure  III.  2.  Figures  II.  1  and  III.  1  combined. 

the  £-th  horizontal  slice  of  each  cube  is  given  by  Equation 


III. 1.2).  One  obtains  Eauation  2)  similarly,  substituting 

* 


f  N  ] 


for  ( N 1 


These  quadratic  identities  are  the  basic  computational 

tool  that  will  be  used  and  modified  in  the  rest  of  this 

paper.  The  term  "quadratic  identity"  refers  to  the  fact 

that  each  of  III. 1.2  and  III. 1.3  corresponds  to  a  system  of 

equations  of  decree  two  in  the  variables  a  .  The  system 

<■  > 


is  q i ve n  by: 


2  £a  am  -  £a  .■  n  =  0,  i,r,c  =  l,..,k 


i  .  £,  «  <-*  »u  /  .  a  »  *  i 

vi  uc  vu  at  ic 

U  =  1  V  =  1  U  =  1 


2  £a  am  -  2  a  /'nU  =  °»  i,^,c  =  l,..,k 


(III .1.4) 


U  =  1  V  —  1 


where  c  means  the  c-th  column  of  the  vectors  in  equations 

1 1 1.1.2  and  1 1 1.1.3  in  Theorem  III.1.  It  is  understood 

Z 

that  all  arithmetic  is  performed  over  /  d  . 

P  * 


An  important  property  of  a  r inq--namely,  possession  of 
an  ident ity--can  be  tested  as  an  application  of  Theorem 
III . 1 .  In  fact,  in  order  to  test  for  an  identity,  the 
auadratic  identities  reduce  to  a  system  of  linear  equations 
in  k  variables.  This  result  is  new,  and  is  a  direct  result 
of  the  tools  developed  in  this  paper.  The  next  theorem  is  a 
description  of  the  method.  Its  significance  is  that  it 
provides  a  mechanism  for  identifying  a  particular 
transition  matrix  which  reveals  1  as  a  basis  element. 


Theorem  III. 2:  R  is  a  rinq  with  identity  if  and  only  if 
the  followina  systems  of  equations  are  satisfied  for  some 


A  €  Tran  id)  : 

V  L  =1 

1  )  fa  a 

11  21 

2  )  f  a  a 

11  21 


'  s,1 


I  =  1, . . ,k . 
I  =  1,  .  . ,k  . 


Proof:  => :  I  f  1  e  R,  then  as  noted  in  Remark  1.1.3, 

1 •  can  be  made  into  a  direct  summand  of  R*  and  hence  1 


would  be  a  basis  element.  Proceeding  as  in  Theorem  I.i,  a 
new  basis  JS'for  R*  is  obtained,  and  thus  there  exists  an 

k  . 

A  <=  Tran  ( <L^  )  _  such  that  A  would  be  the  appropriate  basis 

change  matrix.  By  Theorem  III . 1 ,  R  is  a  rinq  with  1  if  and 
only  if  the  cubes  (Ml  and  7”  (  [  M  ]  )  have  the  property  that 
[AT-(M1^-.M#1  =  [ATdM]^A]if  L  (III. 1.5) 

The  cube  below  describes  this  equation  : 


y/  //  /  ✓ 


W'% 


////. 


Fvgure  III.  3.  '  Piclurs"  of  Equation  III.  1.  5. 

Note  that  A  is  on  the  left  and  rear  faces  of  the  cube. 

What  this  means  is  that  row  L  of  A  is  precisely  the  first 
row  or  column  of  the  L-th  slice-matrix  AT-[M]^#-A. 
Therefore,  R  is  a  rinq  with  1  if  and  only  if  the  following 
string  of  equalities  hold  (L=l,..,k): 


[  a  •  •  a  ]  =  [1  0  •  ■  0 ] • ( AT- [M)i  •  A] 

LI  Lk 


(III .1.6) 


[  a  ••  a  1  •  A-1  =  (1  0  ••  0  1  •  [  AT  •  [  M  1  ^  •  A  ]  ■  A_i  (III.  1.7) 

LI  Lk 


[  0  0 


0  ]  =  [  1  0 


L-th  entry 


(III .1.8) 


,a 


- 

J. 

_0_ 

bJ 

lij 

- 

'2' 

*0' 

'i' 

(Ml 

0 

0 

i 

B  — 

_2_ 

_1 

_o_ 

'O' 

V 

'2' 

2 

1 

0 

lj 

0 

0 

From  this  cube,  it  is  not 
clear  that  R  has  a  1 . By  the 
Theorem,  R  does,  provided  a 
solution  to  the  systems  of 
equations . . 


[1  0  0] 


[  a 


21 


a  ] 

31 


2  2  0  ' 
2  0  1 
0  12 


[010] 


[  a 


ii 


a 

21 


a 


31 


10  2' 
0  0  1 
2  10 


(III  .1.10) 


[0  0  1] 
exists. 


[  a 


ii 


21 


a31] 


0  2  1' 
2  10 
10  0 


Since  the  cube  is  commutative,  the  other  three  equations 


are  redundant  and  are 
common  solution  of  [1 


for  A  - 


1  *  * 
1  *  * 
l  *  * 


where 


not  shown.  That  this  has  a  unique 
1  1]T  is  easy  to  compute,  and  hence 

A  is  nonsinqular  mod  p,  IT  ( [ M ) ) ]  is 

A 


as  desired. 


In  fact,  for  A 


'1  0  1" 
12  2 
12  1 


IT  ( [ M ] ) )  is  the 

A 


=  ( 1, X, 


X2} 


.  □ 


cube  for  R  with  respect  to  the  basis  JB ' 


K  e ma r k  3.1: 


1.  The  Quadratic  Identities  represent  an  always-consistent 
system  of  quadratic  equations  in  the  variables  a  , 

1. j  =  This  consistency  does  not  guarantee  that  the 

matrix  or  matr’ces  identified  as  solutions  are  in 

Jc 

Tran  ( m.  )  .  However,  this  is  easily  checked.  If  none  of 

L  \.=t 

the  matrices  which  solve  the  Quadratic  Identities  are  in 
Tran  id  )  ,then  the  rinqs  are  not  isomorphic. 

t  1  =  1 

2.  The  auadratic  identities,  by  themselves,  would  not  be  a 

verv  effective  computational  tool  because  of  the 

intractibility  of  multivariate  auadratic  equations.  What 

is  interesting,  however,  is  that,  except  for  operations 
Z 

over  /  2cLf  these  identities  can  be  treated  as  a  linear 
system  of  2k3  homogeneous  equations  in  (k*+kz)/2  +  k2 
linearly  independent  variables.  That  is,  the  monomials 
a  a  are  all  linearly  independent  of  a  ,  except  over 

VI  UC  LJ 

Z  Z 

/ 2d'  / 2d  is  restricted  because  the  equation 

2d  4a  +  2d  1(a  )z  =  G  mod  2  holds  for  a  <=  “~/_d,  and  so 

<-j  h  <-j  l 

a  and  (a  )2  are  not  linearly  independent.  A  look  at  the 

i  j  1 1 

numbers  show  that  rank  2  and  3  rinqs  can  be  attacked  by 
this  method . 

3.  For  every  a  that  can  be  determined,  either  explicitly 


or  in  terms  of  ether  a  's,  k  of  the  oriqinal  quadratic 

variables  are  reduced  to  either  constants  or  other 
monomials.  This  effectively  collapses  the  system  to  a 
significantly  smaller  problem.  The  next  example 
illustrates  this  point. 

Example  III. 1.2:  Suppose  two  cubes  [ M  J  and  f  N ]  are  known  to 
represent  rinqs  and  R  ,  respectively,  and  that  both 
rinqs  possess  a  1,  and  are  of  rank  3,  characteristic  3. 

Then  both  cubes  can  be  changed  so  that  R’  =  <l>e<e  >®<e  > 

1  2  3 

and  R'  =  <l>®<f  >®<f  >.  Then  R'  ^  R'  if  and  only  if  there 

2  2  3  12  u 

"1  *** 

exists  A  <=  Tran  ( d-  )  of  the  form  0**  which  solves  the 

i  i=i  „  .  _ 

0** 

"linear"  system  of  54  equations  in  54  unknowns.  Knowinq 
a  =  1,  a  =  0,  and  a  =0,  then  we  know  (a  )2,  a  a 

11  21  31  1.1  '  Ll  jl 

to  be  constants  and  a  a  to  be  either  a  or  0,  dependinq 

ti  uv  uv 

on  a  .  Thus,  the  system  of  quadratic  equations  now  have 
27  fewer  variables  to  be  contended  with  than  the  oriqinal 
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£.  The  Trace  Identities. 

The  well-known  trace  function  for  matrices  is  useful  in  the 
present  discussion,  chiefly  because  it  is  a  linear 
function.  The  next  theorem  is  a  weaker  result  than  Theorem 
1 1 1 . 1 ;  however,  when  they  are  used  toqether,  they  form  an 
effective  comoutat ional  tool. 

Theorem  III. 3:  If  R  =  R  ,  then  the  followinq  systems  of 

12 

equations  are  consistent:  (the  a  are  from  the  transition 

>-j 

matrix  A) 


k 

)  Tr ( M ]  a 

L  V*  VI 

V  =  1 

=  Tr [ N  1 

i  * 

% 

t — i 

ii 

•H 

(Ill  .2.1) 

k 

y  Tr [ M ] *  a 

L  vj 

V  =  1 

=  Tr [ N  1  * 

t  j  —  1 ,  .  .  ,  k  . 

(III  .2.2) 

NOTE:  These  last  equations  will  be  referred  to  as  the  Trace 
Ident.i  t  ies  . 


Pf :  Assume  =  R  .  Then  bv  Theorem  III  .  1 ,  the  quadratic 
identities  hold,  which  are  (for  review): 

[AT-  fM]^-  Ali#  =  (A-[N1*J^  i  ,1=1 ,  .  .  ,  k  ,  (III.1.2) 

[  aT‘  (  fM,L)T'  a]j*  =  [A-fNl*]^  j,£=l,..,k.  (III.  1.3) 

Workinq  with  (III. 1.2),  and  ranqinq  over  t,  we  have 

=  A •  [ N ] *  i  =1,  .  . ,k.  ( III . 2 . 3  ) 

X.  * 


(A 


(Ml  ’  A  ] 

#■*  V  * 


(A  •  (Ml 


A  1 


«>1VAV 


and  che  Tr i M 1  vector  becomes  a  block  diaqonal  matrix;  i.e.. 


Tr [Ml*  . . Tr [ M ] * 


Tr [ M ] *  ..  Tr [ M ] * 

1  *  1  * 


Tr  f  N  ] 


Tr  [N] 


There  is  a  correspondinq  system  for  the  second  equation  as 
well;  obviously  we  would  solve  them  simultaneously, 
producinq  a  system  of  2k  equations  in  kz  unknowns,  and  the 
block-diaqonal  format  of  the  system  insures  at  most  kz-k 
free  variables  in  the  solution  space,  should  it  be 
consistent. 

That  the  converse  of  Theorem  III. 2  doesn't  hold  is 
shown  by  the  followinq  example. 


Example  III. 2.1:  Let  R  be  the  direct  sum  <e  >©<e  >©<e  > 

1  12  3 

such  that  R  is  the  trivial  rinq  of  27  elements,  and  let  R+ 

1  2 

be  the  direct  sum  <1 >®<e  >®<e  >,  where 

2  3 

„  Z  2 

e  e  =  e  ■  e  =  0  =  e  =e 

2  3  3  2  2  3 

Both  are  characteristic  3  rinqs.  Both  have  0  traces  on  all 
slices,  but  clearly  the  rinqs  are  nonisomorphic .□ 


The  Trace  Identities'  main  defect  is  that  a  solution  to 
them  mav  or  may  not  satisfy  the  more  conclusive  quadratic 
identities.  On  the  other  hand,  anv  solution  not.  admitted 
tv  the  Trace  Identities  cannot  be  a  solution  to  the 


vVlv; ~ "" 


Quadratic  identities.  Further,  the  Trace  Identities  may  be 
an  inconsistent  system  of  linear  equations;  in  this  case, 
we  know  that  the  rinqs  under  cons iderat ion  will  not  be 
isomorphic . 

Because  of  the  structure  of  the  linear  system  induced 
by  the  Trace  Identities,  there  are  upper  and  lower  bounds 
to  the  dimension  of  the  solution  space;  namely, 
kz-2k  ^  dim  sol'n  space  <  kz-k, 
provided  the  system  is  consistent. 


0 

3.  A  test  for  idempotents  in  R. 

Thus  far,  associativity,  commutativity,  and  possession  of 
an  identity  have  been  tested  by  direct  computation.  In 
this  section  several  new  results  relatinq  to  decomposing  a 
p-rinq  into  its  irreducible  components  are  obtained  by 
identifvina  central  and  one-sided  idempotents. 

Definition  III.  3.1:  An  idemp.ote.nt  is  an  element  e  e  R  such 
that  ez  =  e .  It  is  centra.!,  provided  it  commutes  with 
every  element  of  the  ring.  It  is  np_nt_r i_vi_a_l  if  it  is  not 
O  or  1  . 

R  R 

Definition  III.  3. 2:  A  ring  R  is  nil.  provided  for  all  x  e  R 
xk<x>  =  o  for  some  nonnegative  integer  k(x).  It  is 

R 

nilpotent  provided  R  =0  for  some  positive  integer  k. 

It  is  known  that  if  R  is  finite  then  nil  and  nilpotent 
rinqs  coincide. 

Proposition  III. 3.1:  A  finite  rinq  R  is  nilpotent  if  and 

only  if  the  only  idempotent  in  the  rinq  is  Or . 

Proof :  =>:  A  nilpotent  rinq  cannot  contain  any  nonzero 

7.  k 

idempotent,  because  e  ‘  =  e  *  O  =>  e  *0  for 

R  R 

all  nonneqative  inteqers  k.a 


$=:  SuDoose  R  has  no  nonzero  idempotents  and  that  R  is 
not  nilpotent.  Then  there  exists  an  element  x  whose  powers 
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never  vanish.  Since  R  is  finite,  x  has  the  property  that 
x*  =  for  some  s  >  t.  This  implies  that  there  exists  a 

r  2 

y  =  x  such  that  y  =  y  for  some  positive  integer  r. 

Pf  of  assertion:  In  case  s  >  2t,  we  have  x“+k  =xt+k 
for  all  k  >  1.  Then  at  some  point  s+k  =  2(t+k).  Let 
r  =  t  +  k  . 

2  2 

T  *  i  .  .  ,  .  t  tS  55  S 

In  case  s  <  2t,  note  that  x  =x  =x  =x  =x. 
Since  s  >  t,  this  process  can  be  repeated  until 

2k  2k 

s  > 2 1  for  some  k,  and  then  revert  back  to  the  first 
case  .  □ 

This  assertion  establishes  the  contradiction.  Hence  there 
is  no  such  nonvanishinq  element.  Thus  R  is  nilpotent.a 


•w 

3 

$ 

*55 


The  next  theorem,  adapted  from  [Ja],  helps  to  determine  the 
reducibility  of  nonnilpotent  rings. 

Theorem  III. 4:  If  a  finite  nonnilpotent  rinq  R  possesses  a 

nontrivial  central  idempotent  e,  then  R  =  e-R  ®  (l-e)-R, 
where  (l-e)-R  =  {r-er|r  e  R}  and  e-R  are  two-sided  ideals 
of  R .  Further , 

1.  e-R  is  a  rinq  with  identity  e; 

2.  ( 1 - e ) • R  is  a  rina  with  identity  if  and  only  if  R  is 
a  rinq  with  identity; 

3.  e • ( 1 - e ) ■ R  =  0  =  ( 1 - e ) ■ R ■ e ;  i.e.,  e  annihilates 
( 1 -e ) -R  . 

Proof:  A  s t r a i qh t f or wa rd  ca leu lat i on  .  ■ 


A  noncentral  idem do tent  will  reduce  a  rlnq  into  a 
direct  sum  of  right  ideals  e-R  ©  (l-e)-R,  but  not  into 
two-sided  ideals.  While  e'R  is  a  subrinq  of  R,  (l-e)-R  is 
not.  Nonetheless,  noncentral  idempotents  have  some 
DroDerties  that  are  useful  in  a  cube  setting,  which  will  be 
shown  shortly. 

From  here  on,  rinqs  will  be  analyzed  with  respect  to  the 
presence  or  absence  of  the  various  idempotents.  The  next 
qrouD  of  theorems  provide  a  means  of  determining  whether  or 
not  a  particular  cube  Dossesses  a  central  or  noncentral 
idempotent . 

Proposition  III. 3. 2:  A  finite  o-rinq  R  possesses  a 

nontrivial  central  idempotent  if  and  only  if 

1)  there  exists  a  sequence  of  E  ,  .  .  ,  E,  «=  Tran  (d  )  such 

lk  i  i=l 

that  T  ([Ml)  =  ( N  ]  has  the  property  that  [  N ] *  is  the 

E  '  ’  E  U 

1  k 

i-th  column  vector  of  I  for  some  i=l,..,k,  and 

[ N 1  *  =  (NI*  ; 

♦ 

J!  ' N  ’  t #  is  not  the  identity . 

Proposition  III. 3. 3:  A  finite  o-rinq  R  possesses  a 
noncentra  i  idempotent  if  and  :>nl  v  if  there  exists  a 


sequence  ot  E  ,  .  .,E,  e  Tran  (d  such  that 

1  k  v  u«4 


E  E 

1  lc 


[Ml)  =  f  N ]  has  the  DroDerty  that  for  some  i-l,..,k. 


f  N  1  is  the  i-th  column  of  I,  and  [N]  +  *  [ N ] * 


These  are  both  clear  from  the  definition  of  a  nontrivial 
central/noncentra  1  idernDotent . 

Proposition  III. 3. 4:  If  e  is  a  central  idempotent  for  R, 
then  e  can  be  made  into  a  basis  element  for  R. 

Proof:  Because  of  Theorem  III. 3,  we  have  e-R  is  a  ring 

with  identity.  If  e-R  =  R,  then  e  is  the  identity  of  the 

rina.  If  e-R  *  R,  then  (l-e)-R  is  nontrivial.  Construct 

bases  for  each  of  these  subrinqs.  Because  e  is  the  identity 

of  e-R,  it  can  be  made  into  a  basis  element  of  the  ideal 

e-R  (see  Remark  1.1.1),  which  in  turn  makes  it  a  basis 
element  of  R,  since  R  is  factored  into  these  two  ideals.* 


Proposition  Til. 3.5:  Let  e  be  a  noncentral  idempotent  of 

R.  Then  R  is  a  direct  sum  of  riqht  ideals  e-R  e  (l-e)-R, 
where  (i-e)-R  is  as  before.  Further, 

1.  e  is  a  left  identity  of  e-R  and  an  annihilator 
of  (  1 -e  )  •  R.  from  the  left. 

2.  e  can  bo  made  into  a  basis  element  for  R. 


S3 

m 

s 

m 

Theorem  1 1 1. 3  and 


The  proof  follows  the  same  lines  as 

Proposition  III. 3. 5,  noting  that  a  left  (or  right)  identity 
has  maximal  additive  order  in  a  rinq  and  thus  can  be  made 
into  a  basis  element  for  e-R  and  R-e,  respectively.! 

The  consequences  of  ProDositions  III. 3. 4  and  Theorem  III. 4 
is  that  the  cubes  of  such  rings  have  a  certain  form,  shown 
next  : 


Proposition  III. 3. 6:  I f  R  is  a  ring  with  central 
idemDOtent,  then  depending  on  the  rank  of  e-R,  any  cube  [M] 
representing  R  is  equivalent  to 


where 

Proof : 


(N)  = 


I"1! 

r°i 

r°i 

r°i 

r  o  i 

0 

i 

i 

0 

. 

0 

_0_ 

_0_ 

0 

roi 

** 

* 

i 

* 

* 

* 

* 

_0_ 

* 

* 

* 

m 

r°i 

* 

• 

* 

•* 

* 

* 

0 

_0_ 

■* 

* 

* 

L  _ 

* 

T 

:ol  t 


is  the  rank  of  the  subring  e-R. 
It  follows  from  Theorem  III.3.« 


The  next  result  is  one  of  the  more  important  ones  in  this 
paper.  Previous  propositions  on  ldempotents  relied  on 


existence  of  a  sequence  of  transition  matrices.  The  next 
theorem  gives  a  method  of  telling  if  certain  rings  have  an 
idempotent  by  merely  inspecting  the  cube. 

Theorem  III.  5:  Let  R  be  a  ring  of  type 

<2±,  .  .  ,d.  a  strictly  decreasing  sequence,  J8  its  basis,  and 
[ M  ]  b  its  cube.  Then  R  possesses  a  nonzero  idempotent  if 
and  only  if  at  least  one  of  the  vectors  [ M ] *  ,  i  =  l,..,k 
has  the  property  that  mL  is  a  unit. 

II 

Proof:  «=:  Suppose  mL  is  a  unit.  Then  it  is  claimed  that 

Lt 

(  e  )  ^  *  O  for  all  k  >  1. 

I  R 

Proof  of  assertion:  Observe  that 

2  i  c  k 

(e)  =  m  e+..+m  e+..+m  e.  Because  R  is  a  ring, 

L  (.Ut  X.  LV-k 

dL  -d. 

we  have  p  J  t  divides  mJ  for  all  j  <  i.  Because  nv 

tt  tt 

is  a  unit,  o((e  )z)  =  o(e  ).  Observe  that 

t  t 

,  .  3  1  t  ,  .  2  k  „ 

(e)  =  m  e  e  +  .  . +m  (e)  +  .  .  +  m  ee.  Because 

t  u  1  t  it  t  tt  k  t 

o(e  )  <  o(e  )  for  all  j  <  i ,  we  thus  have 
o i  ( )  3 )  =  o(e  }.  Proceeding  inductively,  the 
assertion  is  proved. □ 

From  here,  following  the  argument  in  Proposition  1 1 1. 3.1, 
there  exists  an  integer  r  such  that  (e  ) 2r  =  (e  )r.  Thus 

t  t 

(e  )r  is  an  idempotent  for  R,  and  the  first  half  of  the 


proposition  is  proved. a 

=*:  Suppose  R  possesses  an  idempotent  e  and  that,  for 

contradiction,  [ M ]  has  the  property  that  is  divisible 
by  p  for  all  i=l,..,k.  It  will  be  shown  is  that  every 
basis  in  natural  order  for  R  will  have  this  property;  that 
is,  under  any  change  of  basis  which  preserves  natural 
order,  [  ( [  M  ] )  ]  j\  is  divisible  by  p  for  all  i=l,..,k.  This 

will  imply  that  there  is  no  e  such  that  e2  =  e  because  of 
Propositions  III. 3. 2  and  III. 3. 3.  Since  every  transition 
matrix  is  a  product  of  elementary  matrices  described  in 
Chapter  II. 2,  it  will  suffice  to  analyze  them. 

It  is  easy  to  show  that  diagfa^,  .  .  ,akk>  and  E  ,  i  <  j, 

preserve  this  divisibility  by  p.  So  consider  E  ,  i  >  j, 

i-j 

and  compute  [T  ([M])]1  for  t=l,..,k.  By  tabulation,  we 

A  tt 

have  : 

a.  [  J”a(  [M]  )  =  m^t  when  t  *  i,j. 

b.  [T  ( [ M ] ) J  =  1-jjj  +  ij-jij  +  ij-ijj  +  ij2-iij,  using 

A  JJ 

the  notation  of  Chapter  II. 2.  Without  loss  of  generality, 
we  can  assume  that  a_  is  a  unit.  By  hypothesis,  p  divides 
jjj.  By  Corollary  1. 3. la,  p  divides  jij.  By  Definition 
1.2.2,  p  divides  iij.  Because  o(e  )  <  o(@  )  (Theorem 

LJ  V. 

1.2),  we  have  p  divides  ijj.  Thus  p  divides  [T  (tM])f. 

A  JJ 

c.  [T  ([M])]\  =  1-iii  -  ij-iij.  Again,  by  hypothesis,  p 

A  tt 

divides  iii,  and  by  Definition  1.2.2,  p  divides  iij.  Thus 
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p  divides  [T  (  CM]  )  ]L  . 

Since  all  cases  are  exhausted,  the  contradiction  is 
established  and  the  Theorem  is  proven.* 

The  case  of  rings  where  d  =  d  for  some  i  poses  some 

V  l  +  l 

difficulties.  Nonetheless,  some  results  can  be  obtained, 
whose  proofs  follow  lines  similar  to  the  previous  theorem. 

Proposition  III.  3. 7:  Let  R  be  a  ring  of  type  p(c^,  .  .  ,d^) 
with  X  a  basis  in  natural  order.  Suppose  d  =  d  for 

V  L+l 

some  1*1,.. /k-1.  Then  the  following  holds, 

v  *  i+l  * 

1.  If  in1  is  the  sole  unit  of  [M]..  and/or  nv*  .  is  the 

U  U  V+l.V+l 

* 

sole  unit  of  [Ml.  ,  or  if  for  some  d,  which  is 

L+l,L+i  J 

unique,  m^  is  a  unit,  then  R  possesses  an  idempotent. 

2.  If  p  divides  all  of  [M]*  and  all  of  [Ml*  ,  and  if 

LV  V+1,L+1 

for  all  unique  d. ,  p  divides  mJ.,  then  R  is  nilpotent.* 

j  jj 

By  observing  the  proof  of  the  converse  of  Theorem  III. 5,  a 
method  for  actually  finding  a  basis  change  matrix  which 
exhibits  the  idempotent  e  as  a  basis  element  can  be 
derived.  This  method  can  also  be  applied  when  the 
conditions  of  Proposition  III, 3. 7  are  satisfied.  The 
following  is  a  discussion  of  the  method: 

Note  that  in  case  m\  is  a  unit  for  some  i  ( d is  unique), 

VV  L 

k 

then  we  have  o(e.  )  =  o(e  )  for  all  k  >  1.  Thus,  as  was 


■£ai 
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noted  earlier,  there  exists  s  and  t,  s  >  t,  such  that 
(e  )*  =  (e  )l.  Before  proceeding  further  note  that 

t  L 

(e  )a  =  (e  )2-e  (R  is  associative)  which  implies 

l  t  t 

3  1  Z  k 

(e  )  =  m  e  +m  e  +  .  . +m  e,  ,  which  corresponds  to 

v  u  It  tt  2t  tt  kt 


r 

wt 

vt  ^ 

r  l  m 

m 

2v 

\v' 

1 

m  • 

tt 

k 

m 

ii 

2 

+  m  • 

tv 

’k 

m 

2l 

k 

+  .  .  +  m  * 

tt 

mk 

kt 

,  which  can 

re-expressed  as 


r  i 

i 

1 

P  i 

m 

tv 

m 

2l 

mkv 

m 

vv 

• 

• 

• 

*k 

k  *  * 

’  k 

k 

m 

m 

m, 

m 

tv 

2v 

kv 

vv 

which  is  [Ml*  • [ M ] *  .  Denote, 

*V  VV 


for  brevity,  the  vector  representation  of  (ej  by  vfc,  and 
[  M  ]  *  by  M.  Then  we  have 

-*v 

v  =  Mv  ,  v  =  Mv  =  M2v  ,  etc.  The  point  of  the  proof  of 

3  2-4  3  2 

Theorem  III. 5  is  that  once  it  is  shown  that  (e.  )*  =  (e  )L, 

t  t 

one  can  find  an  r  such  that  (e  )2r  =  (e  )r.  Hence,  we  also 

t  L 

have  v  =  v  =  Mv  =  Mrv  ;  that  is,  v  is  an 
"eigenvector"  of  Mr  and  1  is  its  corresponding 
"eigenvalue”.  (The  terms  are  in  quotes  because  this  is  not 
necessarily  a  vector  space  setting,  and  so  the  terms  aren't 
strictly  defined.  The  concept  is  analogous,  however.)  More 
importantly.  Because  cL  is  unique,  and  because 
o(e2r)  =  o(er)  =  o(e  ),  er  can  be  made  a  basis  element 

V  1.  I  l 

replacing  e^,  and  further,  it  is  an  idempotent .  Thus,  if 
3  =  {e,..,e,..,e}  is  a  basis  for  R,  then 

1  v  k 


£  '  = 


[e  r] 


B 


is  also  a  basis,  and 


r  i 

n  . 

1  0  n1  0" 

X.  V 

,  the  matrix  A  = 

_  ll  _ 

0  1  0 
•  #  <  •  • 

k 

■  •  • 

n  . 

0  0  n  .  1 

tv  J 

u  ll  J 

if 


is  the 


transition  matrix  from  £  to  £  '  . 


Note  that  with  repsect  to  £',  e^2r  has  coordinates 

which  is  as  desired.* 

The  next  Proposition  enables  one  to  actually  create  a  basis 
for  e-R  and  (l-e)-R,  once  e  is  identified,  provided  R 
satisfies  the  condition  of  Theorem  III. 5.  Thus,  one  can 
systematically  produce  cube  forms  similar  to  that  of 
Proposition  III. 3. 6  without  having  to  rely  on  the 
quadratic  identities. 

Proposition  III. 3. 8:  Let  e  be  a  nonzero  idempotent  for  R, 

R  a  ring  satisfying  the  conditions  of  Theorem  III. 5. 

Let  £  be  a  basis  for  R.  Then  either  ee  can  replace  e  as 
a  basis  element  for  R,  or  e-e-e  can. 

Proof:  It  is  assumed  that  e  has  been  made  into  a  basis 


element,  and  that  only  the  remaining  basis  elements  are 


being  considered.  For  clarity,  2  =  {e^,  .  .  ,e,  .  .  ,e  }  is  in 
natural  order.  The  proof  rests  on  analyzing  the  additive 
order  of  e-e^,  i  = 

Since  cL.  is  unique,  then  o(e-e  )  =  o(e.  )  implies  a 

L  U  V 

straight  substitution  can  be  made.  If  o(e-e  )  <  o(e  ),  then 

i  i. 

o(e-e-e)  =  o(e  ),  and  the  substitution  e-e-e  for  e.  can 

t  \.  L  V  V  V 

be  made.B 


Remark  III. 3.1:  There  is  again  some  difficulty  when  d  is 
not  unique.  The  author  was  not  able  to  fully  resolve  this 
case,  though  some  partial  results,  not  worthy  of  mention 
here,  were  obtained.  The  difficulty  lies  when 
o  ( e  •  e  )  =  o(e.  .  ),  where  d.  =  dL  L .  The  issue  of  linear 
independence  must  be  examined,  and  this  is  very  difficult 
to  do . 

Nonetheless,  a  large  number  of  ring  types  can  be 
computationally  analyzed  for  number  and  type  of  idempotents 
by  the  methods  developed  in  this  section.  This  fills  a  gap 
previously  existing  in  the  literature;  namely,  how  to 
systematically  identify  and  display  idempotents  In  an 
arbitrary  ring. 

There  is  one  more  case  that  can  be  proven,  but  in  order  to 
express  it,  a  different  form  must  be  used. 


Proposition  III.  3. 9:  Let  R  be  a  ring  of  type  (<L,d)  .  Let 

p 


[M]  be  of  the  form 


i ,  j  =  1,2.  Let  A  = 


Then 


1 

0 


where  m  .  are  units  for 

u. 


,  2  v-2  1 

(m  )  m 

ii  ii 


(m 


ii 


so  that  T  ([Ml)  is 


1  . 


If  either  nzz  or  nzz  are  units,  but  not  both,  then  R 


posseses  an  idempotent. 

2.  If  both  are  divisible  by  p,  then  R  is  nilpotent. 

3.  if  both  n*  and  n2  are  units,  no  conclusion  can  be 

Z2  22 


reached  by  mere  inspection.  Another  method,  such  as  the 


quadratic  identities,  must  be  used. 

Proof:  1  and  2  follow  from  the  previous  proposition.  As  for 
3,  the  outcome  depends  on  p  and  the  values  of  the  rest  of 
the  cube.  It  should  be  noted  that  all  elements  of  the  cube 


IY— A  DISCUSSION  OF  COMPUTER  ALGORITHMS  TO  TEST  FOR 
RING  PROPERTIES  AND  FOR  ISOMORPHISM  BETWEEN  TWO  RINGS 

This  chapter  contains  a  discussion  of  the  algorithms 

TM 

described  in  Chapters  I-III,  programmed  in  Turbo  PASCAL 
I Bol ,  and  listed  in  the  Appendix.  Examples  of  their 
execution  are  included  as  well. 

Because  of  the  action  of  the  elementary  matrix  S  on 

>-j 

a  cube  (Proposition  II. 3. 2),  all  bases  will  be  assumed  to 
be  in  natural  order. 

1.  The  program  which  computes  T^CIMU. 

The  program  SLICER.PAS  computes  the  mapping  T  (  [ M ]  ) 

A 

given  the  following  inputs: 

1.  The  type  of  R+; 

2.  The  cube  CM],  by  rows; 

3.  The  transition  matrix  A. 

The  output  would  be  as  follows: 

d. 

1.  The  transition  matrix  and  its  inverse  mod  p  *, 

2.  The  cube  [M]  and  its  image  T  ( [ M ] ) . 

The  rank  of  the  ring  and  the  prime  number  are  considered  to 

be  program  constants,  and  can  be  changed  only  by  program 
modification.  At  present,  only  keyboard  entry  of  input 
data  is  provided. 

The  heart  of  the  program  is  the  computation  of  A-1 

d 

mod  p  ±,  should  it  exist,  and  Equation  II. 1.1, 


The  standard  matrix 


tr  (  CM]  )  ]u  =  E  E  E  a  a  a  V  . 

A  '•J  r-l  «=l  t-1  r'-  "J  ut  r" 

z 

inversion  method  must  be  modified  to  accomodate  /  d  : 

P  1 


that  is,  the  pivot  for  any  column  must  be  a  unit  mod  p,  not 

just  any  nonzero  element.  The  algorithm  reflects  this 

difference.  As  for  Equation  II.  1.1,  it  is  a  six-index  loop 

involving  the  inputs  A  and  [Ml,  and  the  computed  A-1.  All 

d 

computations  are  made  in  integer  mod  p  u  arithmetic,  except 

d± 

for  A-4,  which  is  performed  in  mod  p  4  arithmetic. 


Example  IY.1.1.  Let  the  rank  of  R  be  (3, 2, 2,1).  Let 
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A  = 


‘111 

40 

105 

75* 

44 

103 

2 

50 

35 

73 

55 

25 

• 

78 

8 

77 

1 

.  This  is  a  transition  matrix,  for 


it  satisfies  the  requirements  of  Proposition  1.2.2 


Let  [M] 


1  ‘ 

■  0  ‘ 

■  0  ‘ 

■  0  ■ 

0 

1 

0 

0 

0 

0 

1 

0 

0 

0 

0 

1 

0  ‘ 

■  0  ‘ 

■  0  ‘ 

■  0  ‘ 

1 

0 

0 

0 

0 

1 

0 

0 

0 

0 

1 

0 

0  ‘ 

■  0  ‘ 

■  0  ■ 

■  0  * 

0 

0 

0 

0 

1 

0 

0 

0 

0 

1 

0 

0 

0  ‘ 

■  0  ‘ 

■  0  ‘ 

‘  0  ' 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

Then  SLICER,  which  computes  J"a([M]),  produces 


‘  76* 

■  70' 

*120* 

*  0  * 

4 

10 

6 

0 

16 

4 

2 

0 

0_ 

2_ 

°. 

_  1 

*  70' 

'  85' 

*  6  5* 

■  0  * 

10 

8 

7 

0 

4 

3 

17 

0 

2 

3_ 

1_ 

_  0 

*12  0' 

*  6  5* 

*110' 

■  0  * 

6 

7 

18 

0 

2 

17 

3 

0 

0_ 

1_ 

0_ 

_  0 

■  0  ' 

*  0  ' 

'  0  * 

■  0  * 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

2.  The  program  which  checks  the  basic  properties  of  a  cube 

[Ml. 

BASPROPS . PAS  tests  if  a  given  cube  represents  a 
multiplication  for  a  group  R+  of  type  (<f  It 

pi  Jc 

then  checks  for  associativity  and  commutativity.  The 

values  k  and  p  are  again  treated  as  program  constants,  and 

the  input  values  are  the  type  of  R+  and  the  cube  [M].  The 

d 

entries  mrg  are  reduced  mod  p  if  necessary,  and  the 

residue  is  given  on  the  screen  if  such  action  is  taken. 

The  first  procedure  checks  that  [Ml  represents  a 

multiplication.  A  three-index  loop  checking  k3-k2 

d  -d 

elements  (rr i  ,  r  <  s)  for  divisibility  by  p  =  is  made. 

The  procedure  first  checks  if  d^  =  d ;  , 


in  order  to 


eliminate  unnecesary  computation. 

The  next  procedure  computes 

t M ] *  •  [Ml*  -  [M]*  •  [MJ*  for  each  i,j  =  l,..,k.  As 

soon  as  one  of  the  entries  of  this  matrix  is  nonzero,  the 
procedure  returns  a  "nonassociative"  response.  Thus,  the 
program  is  optimized  for  failure. 

Example  IV. 2.1.  The  author  wrote  a  modified  version  of 
this  program  to  find  all  rings  with  1  of  characteristic  3. 
Of  the  31Z  different  multiplications  on  the  basis 
{l,e2,e3},  only  802  of  the  cubes  proved  to  be  associative 

as  well.  The  program,  written  in  FORTRAN  and  run  on 
NCSUMATH ,  took  13  minutes  of  processing  time.o 

The  final  test  checks  each  horizontal  slice  of  [M]  for 
symmetry  by  computing  m*  -  m^r  for  r  *  s.  Again,  a 
nonzero  result  immediately  returns  a  "noncommutative" 
response . 

3.  The  program  which  test  for  the  existence  of  a  1  in  R. 
IDENTITY. PAS  checks  a  cube  for  the  existence  of  an 
Identity,  providing  sufficient  Information  to  draw  the 
correct  conclusion.  If  necessary,  one  can  construct  a 
suitable  transition  matrix  so  that  if  J8  =  le^,  .  .,e  },  then 
■S'  =  (l ,  f  ,  .  . ,  f  }  .  The  input  is  as  in  BASPROPS  .  PAS  . 
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This  program  builds  a  2k  x  (k+1)  linear  system  and 
then  reduces  it  to  upper  triangular  form.  The  results  are 
printed  so  that  column  1  of  the  transition  matrix  A  can  be 
obtained,  in  accordance  with  Corollary  IIi.l  and  Example 


III. 1.1. 


In  the  case  R  is  a  vector  space  over  /  ,  the 


procedure  is  the  well-known  Gaussian  elimination.  However, 


just  as  in  IV. 1,  in  case  R+  is  not  of  type  (1,..,1),  the 

p 


elimination  method  must  be  modified  to  first  seek  a  pivot 
that  is  a  unit;  should  one  not  exist,  then  a  pivot  of 
minimum  p-valuation  is  sought;  that  is,  a  nonzero  element 
with  the  lowest  power  of  p  in  that  column. 


Example  IV. 3.1:  Suppose  R+  is  of  type  g(4,2).  Let 


CM] 


It  is  clearly  a  ring  with  1.  The  test  for 


identity  gives  rise  to  the  following  system  of  equations: 


‘  1  0 
0  75 
0  5 
5  5 


1 

0 

0 

5 


What  makes  this  reduction  different  is  that  5 


divides  75  and  is  not  a  unit.  Thus,  when  finding  the  pivot 
for  column  2,  one  must  first  attempt  to  find  a  unit.  The 


as  expected.  For  another 


transition  matrix  is  *J, 
example,  see  Example  III.1.2.n 


4.  A  discussion  of  the  quadratic  identities. 

QUADID.PAS  is  the  implementation  of  the  quadratic  and  trace 
identities  to  compare  two  rings  for  isomorphism.  A 
scaled-down  version  of  this  program,  IDEMPOT.PAS  can  be 
used  to  check  for  nontrivial  idempotents.  The  basic  inputs 
are  the  type  of  R+,  two  cubes,  and  responses  to  questions 
provided  through  interactive  screens.  The  outpu  consists 
of  a  printout  of  the  quadratic  system  of  equations  after 
each  set  of  questions  is  answered.  For  review,  the 
quadratic  and  trace  identities  are,  respectively: 


[At[M]^  a] 

l  ,  T 


=  tA[NU*U 


i X  =  1, . .,k.  (Ill  .1.2) 


(aT-([mOt-a1  =  IAIN]  ]*,  j.<*  l,..,k.  (III. 1.3) 


and 


1 


V  =  1 

Y 

X 


Tr ( M ] *  a 

=  Tr ( N  ]  * 

II 

V»  VI 

i  * 

,  * 

,  * 

H 

II 

T* 

Tr  ( M  ]  a 

•v  VJ 

=  Tr(Nl 

*j 

(111 .2.1) 

(111 .2.2) 


Observe  that  Equations  III. 1.2  and  III. 1.3  are  equations  of 
vectors;  thus  each  component  of  these  vectors  must  equal  as 
well.  That  is,  for  each  i ,1  =  l,..,k. 


const 


Since  the  rings  (cubes)  are  commutative,  the  transpose 
equations  are  redundant  and  hence  are  omitted. 

The  trace  identities  III. 2.1  and  III. 2. 2  have  the  following  form 


and  s^  represent  Tr  (MJ*^  and  Tr  respectively; 

t  corresponds  to  (Nl) 

The  algorithm  for  QUADID.PAS  proceeds  as  follows: 

1.  Given  the  two  cubes,  the  appropriate  traces  are 
computed  and  then  stored  in  the  proper  array  location.  In 
the  trace  identities,  the  "inverse"  array  described  in 
Chapter  III  is  also  stored. 

2.  Both  trace  Identities  systems  are  reduced  to  upper 
triangular  form  and  then  analyzed  for  consistency.  If  they 
are  consistent,  then  the  values  for  a  obtained  by  the 
first  trace  system  are  employed  in  the  quadratic  system. 


3.  The  quadratic  system  is  reduced  to  upper  triangular 
form.  The  option  of  replacing  a  by  a  constant  c  or  by 
d  -d  -a  is  offered.  If  a  .  =  c,  then  each  entry  of  the 

1  2  uv 

column  corresponding  to  a  a^v  is  multiplied  by  c  and  moved 
to  the  column  corresponding  to  a  .  The  entries  of  column 

uv 

a_  are  then  multiplied  by  c  and  moved  "across  the  equal 
sign"  . 

If  a..  =  d  -d  -a  ,  then  each  entry  of  the  column 

v-j  12  uv 

corresponding  to  a  a  is  multiplied  by  d  and  then  moved 

tj  vx  2 

to  the  column  corresponding  to  a  a  Then  the  array  is 

UV  vx 

modified  by  d  in  the  same  manner  as  in  the  first  case. 

i 

The  next  example  illustrates  the  use  of  QUADID.PAS, 
showing  each  key  step  and  printout  along  the  way. 

Example  IV. 4. 2:  Consider  two  rings  of  rank  2,  of  type 
(1,1),  which  are  isomorphic,  whose  cubes  are 


matrix  which  transforms  the  first  into  the  second. 

These  cubes  are  entered  into  the  program.  The  following 


printout  results: 

Trace  Formula  Matrices 


11  21  12  22  Col 


Sys2  For  Information  Only 


Reduced  Trace  Formula  Matrices 


1  1 
0  0 
0  0 
0  0 


0  0 
1  1 
0  0 
0  0 


Notice  that  the  trace  identities  reveal  that  a  =1  and 

21 

azz  =  1  .  Continuing  with  the  program,  and  using  Example 
IV. 4.1  as  a  guide,  the  first  quadratic  system  output  is: 

Raw  Tableau  entries. 
001000020001000 
000202002022000 
000000020000010 
000000002000220 
000202002022000 
000000100210000 
000000002000220 
000000000200100 

Run  Number  1 

Reduced  Tableau  entries. 
001000020001000 
000101001011000 
000000100210000 
000000010000020 
.0  00000001000110 
000000000100200 

Now,  using  the  Information  about  a#i,  the  system  is  reduced 
to  the  following:  (zero  rows  are  not  printed) 


Run  Number  2 
Reduced  Tableau  entries. 
000100000012010 
000000100210000 
000000000100001 
0000000  0  0011001 
000000000000011 


From  here,  we  observe  that  a  =  1-a  .  A  check  by 

11  12  J 

SLICER.PAS  Of  [  1  1  ]'  [  l  i  ]'  and  [  1  1  ]  veri£ies  that 

indeed  these  matrices  serve  as  transition  matrices  for  the 
equivalent  cubes  described  above. □ 


Observation:  One  can  use  QUADI D . PAS  to  find  the 

stabilizer  of  a  cube  [MJ  by  entering  it  twice  in  the 
program  when  called  for.  Finding  the  stabilizer  by 
exhaustive  means  requires  checking  all  transition  matrices; 
an  upper  bound  for  the  number  of  transition  matrices  is  the 
number  of  nonsingular  matrices  over  ^ which,  according 
to  Roby  tRol  is  given  by 


d  ,  z  k 


<p‘>k  n  f i  --M. 

1=1 ^  D  J 


When  R  is  a  free  / -  module,  this  number  is  exact. 


Example  IV.  4. 3:  In  the  case  of  a  ring  with  1  of  type 
(1,1,1),  a  FORTRAN  program  run  on  NCSUMATH  takes  72 


V.  SOME  RESULTS  FOR  RINGS  OF  RANK  1  AND  2. 

1.  Rings  of  rank  1 — Complete  Classification. 

This  first  result  is  known  (£W21,  CKP1). 

Proposition  V. 1.1:  Let  R  be  a  finite  p-ring  of  rank  1, 

| R  j  =  p°.  Then  there  are  exactly  n+1  mutually  nonisomorphic 
rings,  one  with  Identity,  and  the  rest  nilpotent.  The 
representative  forms  are: 

CM]  =  [C], 

CM]  =  C  pl] ,  i  =  0,  .  . ,  n-1 . 

Proof:  By  Theorem  II. 2,  two  rings  are  isomorphic  if  and 

only  if  there  exists 

A  «  Tran  (d  )k  such  that  T  (  [M]  )  =  [N]  .  These  cubes  are 

L  1=1  A 

lxlxl  in  size;  i.e,  they  are  scalars.  Thus  Theorem  II. 2 
means  that  a-m  =  n  for  some  a  such  that  (a,p)  =  1.  The 
cube  of  any  finite  p-ring  R  of  rank  one  is  of  the  form 
Cp'‘-u],  where  (u,p)  =  1,  or  [0]  in  the  case  that  R2  =  O. 
choose  a  =  u"1,  and  the  Proposition  follows.* 

2.  Rings  of  cardinality  pZ — Complete  Classification. 

The  next  few  results  gives  all  rings  of  size  pz. 
Raghavendran  tRal  found  them  by  purely  algebraic  means. 

They  are  also  mentioned  in  IW21,  though  not  all  rings  are 
explicitly  identified. 


Proposition  V. 2. 1 :  Let  R  be  a  ring  of  size  p  ,  rank  one. 


Then  there  are  three  possible  outcomes:  [M]  =  [0],  (1),  or 

[pi  . 

Proof:  This  is  an  immediate  consequence  of  the  previous 

Proposition .■ 

Proposition  V. 2. 2:  Let  R  be  a  ring  of  type  (1,1)  without 

P 

a  nonzero  idempotent  (thus  nilpotent).  Then  R  is  either  the 
trivial  ring  or  its  cube  is  equivalent  to 

[M  Mi 

[Ml  = 

l[o]  Ml 

Proof:  Clearly,  R2  =  0  is  a  nilpotent  ring.  So  suppose  R 
is  nilpotent  and  nontrivial.  Then  e  e  =  me  +m  e  *  O 
for  some 

i,j.  We  first  want  to  show  that  either  e  2  or  e  2  is 
nonzero.  Assume  both  are  zero.  Without  loss  of  generality, 
assume  i=l  and  j  =  2.  Then  •  ••  *  O  <+ 

0  -  e  e  e  =  m  e  2  +m  e  e  =  m  m  e  +  m  2e  .  Since 

t  t  2  11  212  12122 

mz  cannot  be  zero,  (m2,p)  =1  +  *  0,  a  contradiction. 

(m  can't  be  zero  because  if  it  is,  then 

2  2 

e  e  =  me  ^  0  =  e  e  =  m  e  *  0,  also  a 

12  11  12  11 

2  Z 

contradiction.)  Therefore,  one  of  e^  or  e2  is  nonzero. 
Without  loss  of  generality,  assume  (®4)2  is  nonzero.  Thus, 
we  have  the  following  "string"  of  cubes:  (the  reasons  will 
be  given  below) 


m  is  nonzero  and  thus  a  unit;  otherwise  e  would  be  an 

ii  '  1 

idempotent.  Then  (1)  follows  by  computing  T  ( [M] )  with 

A 


A  = 


1 

0 


I  .  Z  ,  -  Zi 

m  (m  ) 

II  11 

/  2  v  -  1 

mn 


(2)  follows  from  the  associativity  property  of  R, 
Proposition  1.3.2.  Because  R  is  nontrivial  and  nilpotent, 
we  have  R3  =  O,  (powers  of  R  form  a  strictly  descending 
sequence  of  subrings  terminating  at  O) .  This  forces 


«2  =  ®i  =  O  which  implies  ab  =  a+b  =  0 

which  completes  the  proof  of  the  proposition. 


a  =  b  =  0, 


Proposition  V. 2. 3:  Let  R  be  a  ring  of  type  (1,1)  with 

p 

only  noncentral  idempotents .  Then  all  such  rings  have  cubes 


CM] 


equivalent  to 


iW 

»5 

*5 

»i 


$ 


Proof:  Since  R  is  nonnilpotent  and  has  no  central 
idempotents,  it  is  irreducible,  then  we  have  the  following 


sequence  of  cubes: 


1  r  * 
1  ni: 

0  n2 

■J  i: 


r  l 

m 

21 

2 

•  m 

I- 


a 

’  .  0  j 


0  1 

•  _  ! 


(1)  follows  from  Proposition  III. 3. 4.  Because  R  is 
associative,  by  Proposition  1.3.2,  n2  and  n2  are  0  or  1 

mod  p  and  n1  n2  =  n1  n2  =0.  e  is  noncentral,  so 

e  e  *  e  -e  .  Associativity  then  forces  n1  =  0  and 
2  112  ■*  22 

n2  =  n1  or  n1  as  appropriate.  Let 
22  21  12  r 


1  -a 


1  0 
■a  1 


,  respectively.  This  forces 


T  (CM])  to  be  one  of  the  desired  forms,  and  so  the 

A 

Proposition  follows." 


Proposition  V.  2. 4:  Let  R  be  a  ring  of  type  (1,1)  with  at 

p 


v!1.* 


least  one  central  Idempotent.  Then  the  cube  of  R  Is 
equivalent  to  one  of  the  following  forms: 


78 


$ 

I 

m 

tst 


[Ml  = 


Proof:  Suppose  that  R  has  at  least  one  nontrivial  central 
idempotent.  Then  R  is  reducible  by  Theorem  III. 2 
and  thus  is  a  direct  sum  of  rings  of  rank  one  of  size  p,  of 
which  there  are  two  types.  This  provides  the  first  two 
listed  possibilities.  In  the  first  case,  R  is  a  ring 
without  1,  and  in  the  second,  a  ring  with  1.  Now  suppose  R 
is  a  ring  with  1  and  no  other  central  idempotent.  Since 
rings  of  rank  two  with  1  are  commutative  (proof  is  obvious 
from  the  cube),  then  R  is  commutative,  which  means  that 
there  are  no  noncentral  idempotents.  Then  [M]  is 
equivalent  to  the  following  cube: 


m 

■ISl  fcl. 


,  where  a  *  0  if  b  *  0  (else  e  is  an 


idempotent).  Then  the  fourth  form  is  produced  by  T  ( [ M ] ) 


where  A  = 


't  0 

•2  -1 
a 


,  and  the  third  arises  when  both  a  and 


b  are  zero.  This  completes  the  proof  of  the  Proposition.* 


Thus,  there  are  11  isomorphism  classes  of  rings  of  size  p  , 
for  Propositions  V.2.1  -  V.2.4  exhaust  all  possible  cases. 


3.  Rings  of  type  C  d  ,  d  ,  x 

p  i  2 


0  for  all  x  in  R. 


The  above  analysis  is  immensely  more  difficult  when  R  is  a 
rank  of  type  (d  ,d  ),  where  d  >  1,  as  the  next  few 

p  12  & 

sections  will  make  clear.  The  results  of  thi3  section  are 
new  and  are  similar  to  those  found  in  IKPl. 

Recall  that  by  Proposition  1.3.1,  the  general  form  of 
a  cube  representing  a  multiplication  over  a  group  of  type 
(d  ,d  )  is  as  follows : 


CM  ]  = 


p  1 

p  d  —  d 

r  |  ra 

1  2  1 

1  11 

P  c 

1 

12 

2 

2 

m 

m 

L  n  -J 

L  12-1 

p  d  ~  d 

r  d  -d 

t  2  1 

Ip  c 

P  c 

21 

22 

z 

2 

Ll  m 

m 

- 

*■  21  J 

L  22 

It  is  clear  that  we  can 


i  2 

restrict  c  to  /  d  with  no  harm  to  the  discussion. 

-  ]  p  2 

Unlike  the  (1,1)  case,  a  nontrivial  nilpotent  ring  can 
have  all  its  elements  be  square-zero.  The  next  Proposition 
gives  the  cube  form  for  those  rings  with  this  property. 


Proposition  Y.  3. 1:  Let  R  be  of  type  with  basis  JS  i 
natural  order,  and  CM]  its  cube.  Let  x2  =  O  V  x  e  R .  Then 
(MI  is  equivalent  to  a  cube  of  the  form 


NOTE:  The  second  form  will  be  known  as  the  mirror  of  the 

:ir3t.  The  two  forms  are  not  necessarily  ant  1  1  senior  ph  1  c  . 

Proof:  Since  xZ  =  O,  we  have  every  basis  element  being 
square-zero,  30  that  [M]  must  be  of  the  form  (allowing  for 
Corollary  1.3.1) 


and  a,b,c,d  <s  /  .  The  proof  now  breaks  down  into  several 
cases.  Due  to  the  length  of  each,  they  will  be  noted  in 
italics . 

Case  la:  a,b,c,d  nonzero ,  -1  2 

Then  we  have  the  following  sequence  of  cubes: 


(1)  follows  by  letting  A  = 


■ 

-1  0 

-i  ' 

a 


then  &  =  a~  c  and 


■5  =  b  *d .  (2)  follows  by  letting  B=  1  ^ 


«• 

i  i 


0  1 


,  provided 


it  -i  i  d  -d*.  (This  qualifies  B  as  a  transition  matrix.) 


r  is  a  unit  whenever  -i  >  and  possibly 


0  when 


A  A 

t  2 


\~i2-  Finally,  when  y  is  a  unit,  for 


,  becomes 


0  0 

0  Jl/‘ 

P^1  [ 0 

6p  J  [  0 


,  for 


which  associativity  implies  >  — — . 


Now  suppose  <■  <  d-x~aLz‘  *n  this  case,  matrix  B  would 

not  be  a  transition  matrix,  and  so  (2)  would  not  follow; 
hence,  the  only  modification  we  can  make  is  with  the  units 
a,b,c  and  d.  Then  (1)  is  the  most  basic  form  possible,  and 

the  restriction  d  -d  <i  <j  +  d  -d  <d  holds. □ 

12  11  12  1 


mmm 


Case  lb.  By  the  same  methods  as  in  case  la, 

we  get  the  "mirror”  form,  o 


Case  2 .  a  =  0 ,  b,c,d  *  0 , 


Then  [M]  is  of  the  form 


0  . 

.  LbP^1 


t  i 

dcp4 

Ldp  JL 


A  =  k  ^  ,  T  ( [M] )  becomes 

”  1  A 

0  c 


and  for 


0 

_  0  J 


,  which  is  one 


of  the  forms  described  in  case  la.  a  =  0  means  *.  is 

i 

understood  to  be  equal  to  d ,  and  this  form  holds  provided 
dt  ~d2  s<2  <^2  +  \  ~d2  ^dx-  It,  however,  -dt~d2, 

i 

then  one  can  replace  p  2  by  0,  which  is  achieved  by  use 


of  the  transition  matrix  t  -j  .□ 

(P  )  1 


Case  J.  c  =  0,  a,b,d  *  0. 

This  is  the  "Mirror"  case  to  case  2.o 


VWk*  ' 


mm 


vSb1 

$ 


f" 

j 


§ 

$ 

'iJJh 

><! 

cr 

^  xf 

v«» 

’>7* 

V,y 


Case  4.  a  =  b  =  0,  c,d  *  0. 


0  0 


L  0  J  L°J  d~ 1  o 

Then  [M]  is  of  the  form  ,  and  for  A  = 

t,  -  -  -l 

2  n  0  C 

CD  .  0  L 

L  dp  0  J 


0  0‘ 

.  0  J  L°. 


T  ( [ M ] )  becomes 

r-;:ir« 


,  which,  as  in  the  previous  case. 


depends  on  whether  or  not  d  - d <i z  +  d^  - d ^  <c^.a 


Case  5.  a,b  *  0,  c=d=0 . 

This  case  is  resolved  as  in  case  4.  When  d^  >d ;  ,  the  forms 
of  cases  4  and  5  are  ant i isomorphic .  When  d  =d^,  they  are 
equivalent . 


Case  6.  a,c  =  0,  b,d*0. 


Then  [M]  is  of  the  form 


°  IK 

0  J  [bp 


,  which  becomes 


0 

0 


/ 


by  the  methods  of  earlier  cases. d 


Case  7.  a,b*0,  c=d=0 . 

Thye  general  form,  after  similar  modification.  Is  3een  to 


The  last  cases,  where  all  but  one  constant  is  zero,  are 
easily  seen  to  be  equivalent  to  one  of 


In  order  to  properly  count  the  number  of  mutually 

nonisomorphic  cases,  one  must  know  the  value  of  d -2d  and 

12 

the  relationships  between  i  -j  ,  i  ,  and  d  -d  .  As  a 
result,  a  closed  formula  for  counting  the  number  of 
Isomorphism  classes  is  very  difficult  to  obtain. 


4.  Rings  of  type  Cd^,d^J  with  nontrivial  central 
i  dempotent . 

This  classification  can  be  quickly  made,  using  Theorem 
III. 2.  Surprisingly,  whe  author  could  find  no  reference  to 
it  in  the  literature. 


Proposition  V.  4. 1 :  Let  R  be  a  ring  of  type  [d  ,d  ) ,  e  a 

p  1  2 

nontrivial  central  idempotent.  Then  [M]  has  one  of  the 
following  two  forms: 


m] 


0<i  <d 


ra 

m 


0<j<i 


In  case  dL  =  <L  ,  then  the  two  forms  are  equivalent,  with 


the  transition  matrix  being 


[So]- 


Proof:  Since  e  is  a  nontrivial  central  idempotent,  it  is 

not  O  or  1 .  By  Theorem  III. 2,  e  is  the  identity  for  the 

two-sided  ideal  e-R.  By  Remark  1.1.1,  e  can  be  made  into  a 

basis  element  for  e-R.  Since  e-R  is  a  direct  summand  for 

R,  this  implies  that  e  is  also  a  basis  element  for  R. 

Thus,  since  R  splits  into  two  nontrivial  rings  of  rank  one. 

Proposition  V.1.1  gives  either  form  1  or  2,  depending  on 

whether  e  has  additive  order  d  or  d  . 

1  z 

As  to  the  last  statement  in  the  proposition,  it 


y-yrSrsj  ■' 


follows  by  direct  computation.! 


Because  of  the  forms  dictated  by  the  existence  of  the 
nontrivial  central  idempotent,  the  number 
of  isomorphism  classes,  given  d^  and  d is  d^  +  d  +■  2 
when  d  >d  ,  and  d  +  I  when  the  d  are  equal. 

12  1  l 

Wiesenbauer  ([W313  published  a  formula  for  counting  the 
number  of  mutually  nonisomorphic  rank  two  rings  with 
identity.  Because  of  the  simple  structure  of  such  rings, 
he  was  able  to  employ  streamlined  notation  and  analysis  t 
arrive  at  this  very  excellent  result. 

5.  Rings  of  rank  two  with  noncentral  i  riemput  enl  s . 

The  next  two  results  are  new,  and  with  Proposition  V  .  -5  1 
completely  describe  nonnilpoter.t  rings  w.tbout  1  .  Hcweve 
the  theorems  do  not  positively  identify  mutually 
non  isomorphic  forms. 

Theorem  Y. 1 :  Let  R  be  of  type  id  ,d  e  a  noncentral 

p  1  2 

idempoter.  t  of  R,  e  -  R  a  rank  one  ring.  Then  any  cute  .'Mi 

representing  R  is  equivalent  to 

Proof:  If  R  possesses  a  noncentral  idempotent  such  that 
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0  1 


PS1 


1  \r  P 


d  >  i  >  max  {ci  ,d  -d  } 
1  Z  z'  1  2 

>i  >  d  -d 

13  12 

*2  2  >, 

P,r  ■  Z/_ 


Proof:  The  idea  follows  exactly  along  the  lines  of  the 

previous  theorem.  If  R  is  a  ring  with  noncentral  idempotent 
e  such  that  e-R  =  R,  then  any  cube  representing  R  is 


equivalent  to  one  of  the  form 


m 


by  Proposition 


III. 3. 5.  Associativity  requires  that 


1)  b2  s  b  mod  p  z. 


2 )  ab  s  0  mod  p  2, 


3 )  be  s  c  mod  p  , 


4)  a+bd  =  d  mod  p 


Thus  by  1),  b  =  0  or  1,  which  gives  two  cases 


rim 

W 


m 

[i] 


Case  1.  b  =  0  implies  p  2  divides  c  and  a  by  3)  and  4) 


Also,  a  =s  d  mod  p  ,  which  means  that  for  =  <*2,  we  have 
a  is  a  unit  if  and  only  if  d  is,  and  for  d  >  d ,  d  is  not 
a  unit.  Thus  [M3  is  of  the  form 
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0 


0 

1 


r  i  n  r  i 


cp 
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,  we  get 


Ta([M3)  = 
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0 

1 
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r  in 
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ftP  3 

0 

>3 

J'P 
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^2  *  ^3 


.□ 


e  "■/  ,  Y  =  6a’1. 


d 

Case  2.  b  =  1  implies  that  p  divides  a  by  2).  a  cannot  be 
0  since  e  is  noncentral.  No  other  conclusions  canbe  drawn 
from  associativity,  and  so  [M3  must  be  of  the  form 


>  i  >  max{ri  ,d  -d  } 

2  z'i  Z 

>i  >  d  -d 

3  1  Z 

*  '3 


Again  letting 


*,ft,Y  «  /„ 


»5 


I 


1 


1  0  ' 

0  7 


we  get 


J\([MJ)  = 

A 


d  >  i  >  max{d  .  d  -d  } 
1  2  2 '  1  2 


d  >i  >  d  -d 

1  a  12 

<£  >  i 

2  *  3 

ft,r  e  Z/p  y  =  6ct“ 


This 


completes  the  proof  of  theorem. i 


Theorems  V.l  and  V.2  place  an  upper  bound  on  the  possible 
number  of  mutually  nonisomorphic  rings.  A  closed  form 
equation  stating  the  exact  number  of  isomorphism  classes, 
given  d^  and  d ^  would  be  a  significant  result  on  its  own. 
The  author  hopes  to  be  able  to  derive  such  a  formula  in 
future  research. 


CONCLUDING  REMARKS 

The  results  obtained  in  this  paper  give  rise  to  three 
distinct  avenues  for  further  research  which  the  author 
intends  to  pursue: 

1.  Nilpotent  rings  of  rank  2  and  nonnilpotent  rings  of 
rank  3.  It  is  shown  in  IKP1  that  "most"  rings  are 
nilpotent;  that  is,  as  p  or  n  gets  larger,  a  higher 
percentage  of  the  rings  of  cardinality  pnare  nilpotent. 

In  such  rings,  there  are  special  elements  such  that 

X2  =  pLx  —  p-potent  elements,  if  you  will.  The  author 
Intends  to  explore  if  such  elements  can  be  used  to  classify 
nilpotent  rings  of  rank  2.  As  for  nonnilpotent  rings  of 
rank  3,  many  rings  can  already  be  identified  from  this 
paper's  results;  namely,  those  rings  with  a  nontrivial 
central  idempotent.  The  author  hopes  to  classify  all,  or 
some  special  subset  of  rank  3  rings. 

2.  Improvements  in  the  algorithms.  The  "linearization"  of 
the  quadratic  identities  is  effective  with  rank  2  and  some 
rank  3  three  rings.  However,  it  primarily  serves  to  reduce 
the  number  of  possible  candidates  among  the  transition 
matrices  in  testing  for  isomorphism  between  two  cubes. 
Further,  as  was  shown  In  Remark  III. 1.2,  when  considering 
character ist ic  2d  rings,  linearization  is  not  effective  in 
evaluating  certain  equations.  Alternative  means  for 
testing  these  rings  for  isomorphism  will  be  explored. 

3.  The  application  in  algebraic  cryptography  alluded  to  in 


Chapter  II  can  be  extensively  developed,  because  the 
mapping  T  ( C M 1 )  exhibits  many  of  the  characteristics  of  a 
good  encipherment  system. 

Given  an  enciphered  cube  of  size  k,  the  number  of 
computations  required,  on  average,  to  decipher  a  cube  with 
k3  elements  is  a  function  kn  +  f(k),  deg  f  <  n,  and  would 
be  considered  a  "hard”  problem,  but  theoretically  not 
impossible.  For  this  reason,  its  discussion  in  depth  is 
not  considered  appropriate  here.  However,  a  successful 
encipherment  system  need  not  have  mathematically  perfect 
security. 

For  example,  one  commercially  successful  public-key 
encryption  system  ( RSA)  depends  on  the  high  probability  that 
there  is  no  easy  method  of  factoring  a  large  (greater  than 
10lo°)  composite  number,  the  product  of  two  large  (greater 
than  103°)  prime  numbers.  Currently  known  methods  would 
require  some  74  years.  (See  IMMJ  and  [BP]). 

By  presenting  ^([M])  as  an  encipherment  system  for 
publication  in  a  periodical  such  as  Cryptoloala .  it  is 
hoped  that  others  will  attempt  its  solution,  which  will 
simultaneously  provide  us  with  effective  means  of 
classifying  rings  of  larger  rank.  We  refer  the  readers  to 
the  earlier  discussion  in  Remark  2.3. 
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Program  SI leer; 

(This  program  implements  the  basic  group  action  described  in 
Chapter  II  of  the  dissertation.  All  calculations,  Including  matrix 
Inversion,  is  performed  by  Integer  arithmetic.  Bach  key  Procedure 
has  a  comment  describing  its  purpose.} 

{ssasssssssssassssaxsaassssasDeClaratiOnS^s-Bassaasssssssssasssasa* 

Label 


FOUR; 

Const 
sz  *  2; 

Base  =  3; 

Type 

Basis  3  array(l..Szl  of  Integer; 

Matrix  s  arrayd.  .Sz,l.  .Sz]  of  Integer; 

Cube  »  arrayd.. Sz,l..Sz,l..Sz)  of  Integer; 

Vec  *  array] 0. .1000]  of  Integer; 

Var 

M,N:  Cube; 

A,Al,Ainv:  Matrix; 

I,J,L,Sing:  Integer; 

Cbar:Vec; 

Bas: Basis; 

{ SS33333S33Sa3333S3333=333333PUQCtiOn  POWCr 3333333333333333333333333 

Function  Power (P,v: Integer) : Integer; 

Begin 

Power;*  Round ( Exp < v*Ln(P) )) ; 

End;  (Function  Power} 

{333333333S3333S33333338S3333prOCedUre  I nP=***========*========*==== 

Procedure  Inp(var  Bas :Basis;var  M:Cube;var  A:Matrix>; 

Var 

I,J,K,Num:  Integer; 

Begin 

ClrScr; 

GotoXY(8,4) ; 

Writeln(  'R  has  rank  ',Sz, '  and  P  is  ',Base,'.'); 

GotoXY(8,8) ; 

Vr ite In ( 'Enter  the  type  of  R  in  nonincreasing  order.  Errors  will') 
VritelnCnot  be  detected,  so  be  careful.'); 

Wr ite In ( 'IMPORTANT! !  P**D1  Cannot  Exceed  181,  or  else  integer'); 
VrltelnC  overflow  will  occur,  due  to  the  language  limitation.'); 
GotoXY(l,12); 

For  I:*  1  to  Sz  do  begin 
write( 'D' ,1, '=' ); 

Read(Kbd,Num) ; 

Bas (1 1 : *  Num; 
vr  ite ( Basil ]) ; 

GotoXYd,  Where  Y+l); 
end; 

Wrlteln; 

Wrltelni 'Input  of  Ring  Type  Complete.'); 

Delay(3000) ; 

ClrScr; 


GotoXY(8,8); 

Vrlteln( 'Enter  (HI  by  rows.  The  entries  will  be  reduced  to  the'); 
Writeln( 'correct  modulo  if  necessary.'); 

GotoXY(l,10); 

For  I:*  1  to  Sz  do  begin 
For  K:=  1  to  Sz  do  begin 
For  J:  =  1  to  Sz  do  begin 
Read(Kbd,Num); 

H(I,J,Kl:s  Num  mod  Power (Base, BastK )) ; 

GotoXY(5*J,  WhereY); 

Write(M(I, J,K) ); 
end; 

writeln; 

end; 

end; 

GotoXY(l,20); 

Wrltelnt 'Input  of  Cube  Complete.'); 

Delay(3000); 

CIrScr; 

GotoXY (8,8); 

Writeln( 'Enter  A  by  rows.  No  error  checking  will  be  performed,  so'); 
WrltelnCbe  sure  that  A  is  a  transition  matrix.'); 

GotoXY (1,10); 

For  I:»  1  to  sz  do  begin 
For  J:=  1  to  sz  do  begin 
Read (Kbd, Num); 

AtI,Jl:»  Num; 

Al ( I , J 1 : s  Num; 

GotoXY(5*J, WhereY); 

Write(AIl,JJ); 

end; 

Writeln; 

end; 

GotoXY(l,20) ; 

writeln( 'Input  of  Transition  Matrix  Complete.'); 

Delay(3000) ; 

CIrScr; 

Bnd;  (Procedure  Inp) 

(s33333SSSaS33SS23S33S3SSS3S3PrOCedUre  I ttV i ttt S * = * * 3 * » 3 * * 3 * 3 S 83 * 3 a » **= * ) 

(invlnt  establishes  a  Look-Up  table  for  rapid  identification  of  zero 
divisors  and  units,  listing  each  unit's  inverse.) 

Procedure  Invint(var  Cbar:  Vec;Bas: Basis) ; 

Var 

l,j,Nmod:  integer; 

Label 

ONE; 

Begin 

Cbar(l) :=1; 

Nmod:*  Power (Base,Bas( 11 ); 

For  I:  =2  to  (Nmod-1)  do  begin 
If  Chart II  *  0  then  begin 
For  J:=2  to  (Nmod-1)  do  begin 


4.n 


4- 1  j n,  i ti.  rt.  rt.  it. 
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If  (I*J)  nod  Nmod  =  1  then  begin 
Cbarfll:*  J; 

Chart Jl :=  I; 

Goto  ONE; 
end; 
end; 
end; 

ONE: end; 

INote  that  If  Inverse  is  not  found,  It 
Is  a  zero  divisor,  and  has  already  been 
initialized  to  zero.) 

End;  (Procedure  Invintl 

(Invert  finds  the  Inverse  mod  P**D1  of  a  matrix.  If  it  Is  singular, 
the  user  will  be  advised  and  the  program  will  be  halted.} 

Procedure  Inverttvar  Al,Ainv:Matrix;Cbar :Vec;  var  Sing:  Integer; 
Bas:Basis) ; 

Label 

two, three; 


Var 

I,J,Jl,J2,K,Ll,L2,Piv,Temp,Mult,Nnod:  Integer; 

Begin 

Nmod:*  Power (Base, Bast  1) ); 

TWO: For  I : =  1  to  (Sz-1)  do  begin 
Piv:=I; 

THREE:  If  Cbar I  Alt  I ,Plv  1 1  *  0  then  begin  (Pivot  Search} 
Piv:=Piv  +  1; 

If  Piv  >  sz  then  begin 
Writelnt 'Sorry.  This  matrix  is  singular.'); 

Sing:=l; 


(Pivot  Search} 
(Row  Swap} 


Exit; 
end; 

Goto  THREE; 
end; 

If  I  <  Piv  then  begin 
For  Jl:  =  1  to  Sz  do  begin 
Temp:=  Alt  I , J1 1 ; 

All  I , Jll :=  AltPiv, Jl] ; 

AltPlv, J1 J : =  Temp; 

Temp:*  Alnv(l,Jl]; 

Ainv(I,Jl) : =Ainv(Piv, J1 1 ; 

Ainv(Piv,Jl] :*Temp; 
end; 
end; 

For  LI:*  (1*1)  to  Sz  do  begin 
Mult:  =  (AltLl,ll*Cbar(Al(I,in ) 

For  L2:*  I  to  Sz  do  begin 

A1(L1,L2 ] :*  ( A1(L1,L2 ]  -  Mult*AltI,L2))  mod  Nmod; 

If  A1(L1,L2J  <  0  then  A1(L1,L2J:=  AltLl,L2)  +  Nmod; 
AlnvtLl,L2) :*(AinvtLl,L21-Mult*AinvtI,L2) )  mod  Nmod; 

If  Ainv(Ll,L2)  <  0  then  AlnvtLl,L21 :=  AlnvlLl,L2J  +  Nmod; 
end; 


(Row  Swap) 

(Upper  Triangularlzation} 
mod  nmod; 


} 
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end; 

end;  {Upper  Triangularization) 

If  Cbar (Al(Sz,Sz1 ]  =  0  then  begin 
Vriteln( ’Sorry.  Last  element  zero.'); 

Slng:=l; 

Exit; 

end; 

For  I:=Sz  downto  2  do  begin  {Dlagonallzation) 

For  LI: 3  (1-1)  downto  1  do  begin 
Mult:=  ( A1 I LI , I ) *Cbar ( Al  1 1 , 1 1 1 )  mod  nmod; 

For  L2:  =  I  downto  1  do  begin 

AHL1/L21  :  =  (Al[Ll,L21 -Mult* Alt  1,12) )  mod  nmod; 

If  A11L1,L2]  <  0  then  A1(L1,L21:=  Al(Ll,L2 )  +  Nmod; 

Ainv(Ll,L2) :=(AinvlLl,L2]-Mult*Alnv(l,L2] )  mod  nmod; 

If  Alnv(Ll,L2)  <  0  then  Alnv(Ll,L2) :*  Alnv(Ll,L21  +  Nmod; 
end; 
end; 

end;  {Dlagonallzation) 

For  I : *1  to  Sz  do  begin  (Scaling  of  Diagonal  Matrix  to  Identity) 

For  J:*l  to  Sz  do  begin 

Ainv(I,JI :=(Cbar(Al(I,I 1 )*Ainv(I,J) )  mod  Nmod; 
end; 

end;  (Scaling) 

End;  (Procedure  Invert) 

{sssssssssassaassassassasssaaProCedUre  SliCer3333333333333333333333333) 

{This  is  the  actual  computation  of  the  group  action.) 

Procedure  Sllcer (A,Ainv:  Matrix;var  M,N:Cube;  BasiBasls); 
var 

I, J,L,R,S,T, Nmod: Integer; 

Begin 

For  I:*  1  to  Sz  do  begin 
For  J:=  1  to  Sz  do  begin 
For  L:=  1  to  Sz  do  begin 
Nmod: 3  Power ( Base , Bas ( L ) } ; 
for  R:®  1  to  Sz  do  begin 
For  S:»  1  to  Sz  do  begin 
For  T:®  1  to  sz  do  begin 

N( I , J,L 1 : ®( N( I , J,L ]  +  ( ( a[R, I )*A( s, J ) )  mod  Nmod)* 

( (Alnv(L,T]*MlR,SrT) )  mod  Nmod))  mod  Nmod; 
end; 
end; 
end; 

N( I , J,L1 :=(Nl I, J,L)  +  Nmod)mod  nmod; 
end; 
end; 
end; 

End;  (Procedure  Sllcer) 

{ 3SSS2SS33S33S33S3SSSSS=SSSS=Haln  Pr Ogf Sltl3 3 3 3 3 = = = 3 3 3 3 3 » 3 3 3 3 * 3 * 3 3 * 3 S * * 3 ) 

Begin 

{3SS333333333SS33S23323232S33lnltialiZatiOn3333=3=33333=3=333333333333) 

Sing: =0; 

For  I:=0  to  1000  do 
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Cbac ( 1 1 : =0 ; 

For  I :=1  to  Sz  do  begin 
For  J:=l  to  Sz  do  begin 
AlI,J):=0; 

Al[I,J] :=0; 

If  I  =  J  then 
Ainv(l,J] :=1 
else 

Ainvtl, J1 :=0; 

For  L:  =  1  to  Sz  do  begin 
MlI,J,Ll:*0; 

Nil, J,L] :=  0; 
end; 
end; 
end; 

{:s:ssss=23S3sss3Sssss=:s:r:sExeClltiOn::::=::-3:s:==:::3::3:s3ss:ssssss:} 
lnp(Bas,M,A) ; 

Invint(Cbar,Bas); 

Invert(Al,Ainv,Cbar,Sing, Bas);  {Inverse  of  slicer  computed  here) 
If  Sing  =  1  then  goto  FOUR; 

For  I :=1  to  Sz  do  begin 
For  J:*  1  to  Sz  do 
Vrite(Lst,A(I, j):5); 

Write(Lst,'  '); 

For  J:=  1  to  Sz  do 

Write(Lst,Ainv{I,J)  :5); 

Writeln(Lst) ; 
end; 

Slicer(A,Ainv,M,N,Bas); 

ClrScr; 

For  I:=  1  to  Sz  do  begin 
For  L:=  1  to  Sz  do  begin 
For  J:3  1  to  Sz  do 
tfrite(M(I,J,L) :5); 

Write ( '  '); 

for  J:=  1  to  Sz  do 
Write(N( I, J,L] :5); 

Wr lteln; 
end; 
end; 

FOUR: End.  {Main  Program) 


V.-' 
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Program  basprops; 

(Three  main  procedures  make  up  this  program.  The  first.  Multiplication, 
tests  if  the  cube  represents  a  multiplication.  The  other  two,  titled 
Associativity  and  Commutativity,  respectively,  does  what  one  expects.} 
{===========a========ss===r==Declarations=================="=========} 

Const 
Sz  =  3; 

Base  =  2; 

Type 

Basis  =  array(l..Szl  of  integer; 

Cube  =*  arrayd.  .Sz,l.  .Sz,l.  .Sz  J  of  integer; 
var 

M:  Cube; 

Bas:  Basis; 

I,J,K:  Integer; 

(====“=*===“========«==  ===FUnCtiOn  Power===3=*=s=*B!s!s=a=*=a!-=!***!s3=  > 

Function  Power(B,V:Integer ) clnteger; 

Begin 

Power :=  Round(Exp(V*tn(B))); 

End;  (Function  Power} 

{ss=========s=============r===Procedure  Inp«=“================“=====} 

Procedure  lnp(var  Bas:Basis;var  MiCube); 
v^.r 

I , J,K,  Numdnteger; 

Begin 

Clrscr; 

writeln( 'Ring  is  of  rank  ',Sz,'  and  P  is  ',Base,'.'); 
vrltelnCTo  change,  edit  program  constants  sz  and  Base.1); 
GotoXY(8,3); 

Writeln( 'Enter  the  type  of  R  in  nonincreasing  order.  Errors  will'); 
VritelnCbe  detected,  so  be  careful.'); 

GotoXY(l,5); 

For  I:*  1  to  Sz  do  begin 
write( *D',i, '»' ); 

Read (Kbd, Num); 

Bas (I ) :=  Num; 
vrlteiBasd  1 ); 

GotoXY(l,WhereY+l) ; 
end; 

writeln( 'Input  of  Ring  Type  Complete.'); 

Delay( 3000) ; 

ClrScr; 

GotoXY (8,8); 

Writeln( 'Enter  (Ml  by  rows.  The  entries  will  be  reduced  if  to  the'); 
Wrlteln( 'correct  modulo  if  necessary.'); 

GotoXY(l,10); 

For  I : =  1  to  Sz  do  begin 
For  K:=  1  to  Sz  do  begin 
For  J:=  1  to  Sz  do  begin 
Read (Kbd, Mum); 

M(I,J,K]:=  Num  mod (Power ( Base, BaslKJ ) ); 

GotoXY ( 5* J,WhereY); 
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Write(M(I,J,Kl ) ; 
end; 

Vrlteln; 

end; 

end; 

GotoXY(l,20); 

wrlteln( 'input  of  cube  complete.'); 

Delay (3000); 

End;  (Procedure  Inp) 

{============================Procedure  Multiplication*****************) 

Procedure  Multiplication(Bas:Basis;M:Cube); 

Var 

I, J,K:Integer; 

Begin 

If  Bas(l)  =  BasfszJ  then  begin 

vrltelnCR  Is  a  free  module;  hence  (HI  Is  a  multiplication.'); 

Exit; 

end; 

For  I:-  1  to  sz  do  begin 
For  J:*  1  to  Sz  do  begin 
For  K:  =  1  to  Sz  do  begin 

If  (Bas(K)  >  Bas(Jl)  and  (Bast I)  >=  Bas(Jl)  then  begin 

If  M(I,J,K)  mod(Power (Base, (Bas(Kl-Bas( J1 ) ) )  <>  0  then  begin 
tfriteln('(M]  is  not  a  multiplication.'); 

Exit; 

end; 

end; 

If  ( Bas ( K )  >  Basil))  and  (Bas(J)  >=  Basil))  then  begin 

If  M(I,J,K]  mod (Power (Base, (BaslK)-BaslI 1 ) ) )  <>  0  then  begin 
VritelnC(M)  is  not  a  multiplication.'); 

Exit; 

end; 

end; 

end; 

end; 

end; 

wrltelnCCM)  is  a  multiplication.'); 

End;  (Procedure  Multiplication) 

{=======s=a==ss=s=====3======Procedure  Associativity*”***®”*®*******} 

Procedure  Associativity (Bas: Bas is ;M:Cube); 

Var 

C, I, J,T,U,SUM,NMOD:  Integer; 

Begin 

For  C:=  1  to  Sz  do  begin  (Basic) ) 

Nmod:®  Power (Base, Bas 1C) ); 

For  l:=  1  to  Sz  do  begin 
For  J:=  1  to  Sz  do  begin 
For  T:=  1  to  Sz  do  begin 
Sum:*  0; 

For  U:=  1  to  Sz  do  begin 

Sum: *( Sum  +  M(I,J,U1*M(U,T,C)  -  Hi J,T,U1*M(I,U,C1 )  mod 
Power ( Base , Bas l C ) ) ; 


end; 

If  (Sum  ♦  Naod )  mod  Mmod  <>  0  then  begin 
Vriteln('lM)  Is  not  associative.'); 

Exit; 

end; 

end; 

end; 

end; 

end; 

WritelnClMl  is  associative. ' ); 

End;  {Procedure  Associativity) 

{=========s====»=============procedure  Commutativity3®*®***®****"***8*) 

Procedure  Comautat 1 vi ty ( Bas : Basis ; M : Cube ) ; 

Var 

C,I,J:  integer; 

Begin 

For  C:*  1  to  8z  do  begin 
For  I:*  1  to  sz  do  begin 
For  J:<  1  to  Sz  do  begin 

If  (Mil, J, Cl  -  Ml J,I,C) )  <>  0  »od(Power(Base,BaslCl))  then  begin 
VrltelnClH)  Is  not  commutative. ' ) ; 

Exit; 

end; 

end; 

end; 

end; 

writeln('lM)  Is  commutative.'); 

End;  (Procedure  commutativity) 

{ sss3sssrssssssssssss2ss55sss|^j in  Pr0gram*==*=*»«*»**=**=*“!5*a!*aS5*!S=*=) 
Begin 

{ 33333333333333333X3333*3333311)1 tialiZatiOn********®******®*****®3****) 
For  I:*  1  to  Sz  do  begin 


For  J:»  1  to  Sz  do  begin 
For  K:°  1  to  Sz  do  begin 
MlI,J,K):*  0; 
end; 
end; 

Bas 1 1 1 : »0 ; 
end; 

(asssasasssssssssssssssssssssBxeCUtiOn******************33**** 
Inp(Bas,M) ; 

Multiplication Bas, M) ; 

Associativlty(Bas,M) ; 

Commutativlty(Bas,M); 

End.  {Main  Program) 


Program  Identity; 

{This  Program  takes  a  cube  and  checks  It  for  the  existence  of  an 
Identity,  Implementing  Equation  III. 1.9  of  the  dissertation.  To 
evaluate  rings  of  rank  >  5,  change  Siz  and  Max  as  Indicated  by 
comments  in  Declarations.! 

{***««****”***»»********=***Declarationsa«**”»!**"«=========***===} 

Const 
Sz  =  2; 

Siz  *  6;  {Sz  -i-  1} 

Base  *  5; 

Nmod  =  125; 

Max  *  50;  {2*Sz**2! 

Type 

Basis  =  array(l..szl  of  integer; 

Blk  -  arraylO. .10001  of  Integer; 

Cube  »  array! 1. .sz,l. .sz,l. .szl  of  Integer; 

Vec  *  arraylO. .1000,1. .21  of  Integer; 

Matrix  -  arrayd.  .Max,l.  .51  of  Integer; 

Var 

Bas:  Basis; 

I,J,K,K1:  Integer; 

M:  Cube; 

Cbar:  Blk; 

Padic:  Vec; 

Tl,T2:  Matrix; 

{zassssssssasssssssssssssssrayuncdon  POWer****”*****""®*®*"”****) 

Function  Power (  b,v: integer ); Integer; 

Begin 

Power : =Round ( Exp ( V*Ln (B) ) ) ; 

end;  {Function  Power! 

(aaaaaaaaaaasaaaaaaaaaaaaaaaaprocedure  Inp=s=ssss»=*ssssss=ssss"s*s!!al 
Procedure  Inptvar  Bas:Basis;var  M:Cube); 
var 

I , J,K,  Mum: Integer; 

Begin 

clrScr; 

Writelnl 'Ring  is  of  rank  ',sz,'  and  P  is  ',Base,'.'); 

WrltelnCTo  change,  edit  proqrara  constants  Sz  and  Base.'); 
GotoXY(8,3); 

Writeln( 'Enter  the  type  of  R  in  nonincreasing  order.  Errors  will'); 
Wrlteln('be  detected,  so  be  careful.'); 

GotoXY(l,5); 

For  I:»  1  to  Sz  do  begin 
Write! 'D',l, ); 

Read (Kbd, Mum ) ; 

Basil):*  Num; 

Write (Bast  1 1 ) ; 

GotoXYt 1, Where Y+l ) ; 
end; 

writeln( 'Input  of  Ring  Type  complete.'); 

Delay(3000); 

ClrScr; 


GotoXY (8,8) ; 

Wrlteln( 'Enter  [HI  by  rows.  The  entries  will  be  reduced  if  to  the'); 
Writeln( 'correct  modulo  if  necessary.'); 

GotoXY (1,10); 

For  l:»  1  to  Sz  do  begin 
For  K;>  1  to  Sz  do  begin 
For  J:-  1  to  sz  do  begin 
Read (Kbd, Mum); 

H(I,J,K):»  Hum  mod ( Power (Base,Bas(K) )); 

GotoXY ( 5*  J , wher e Y ) ; 

Write(M(I,J,KU; 

end; 

Vriteln; 

end; 

end; 

GotoXY (1,20); 

Vriteln( 'Input  of  Cube  Complete.'); 

Delay(3000); 

End;  (Procedure  Inp) 

{ aaaaaaaaaaaaaaaaaaaaaaaaaaaapfocedure  I nvint  "  =  =  =  "=="- aaaaaaaaasaaa } 
Procedure  Invint  (var  cbar:  BIX); 

Var 

I,J:  Integer; 

Label 

ONE; 

Begin 

Cbarlll 1; 

For  I :=  2  to  (Nmod  -  1)  do  begin 
If  Cbar [II  *  0  then  begin 
For  J:»  2  to  (Nmod  -  1)  do  begin 
If  (l*J)  mod  Nmod  =  1  then  begin 
Cbar(I) :=  J; 

Cbar(Jl:=  I; 

Goto  ONE; 
end; 
end; 
end; 

ONE: end; 

end;  (Procedure  Invint) 

{ aaaaaaaaaaasaaaaaaaasaaaaaasprOCedUre  I nVVal aaaaaaaaaaaaaaaaaaaaaaaaa } 
(If  X  =  (P**K)*U,  then  K  =  Padic(X,l)  and  U  =  Padic(X,2).  If  X  *  0, 
then  k  *  Expo.) 

Procedure  InwaKvar  Padic:Vec); 

Var 

K, I, Expo:  Integer; 

Begin 

Bxpo:-  Round (Ln( Nmod )/Ln (Base) ); 

Padic(0,ll :=Expo; 

For  i:«  1  to  (Nmod-1)  do  begin 
K:*l; 

While  (I  mod  Power(Base,K)  =  0)  and  (K  <=  Expo)  do 
K:»  K*l; 
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Padlc(l,ll:=  K-l; 

PadicII,2!:3  I  dlv  Power (Base, (K-l) ) ; 
end; 

end;  {Procedure  I nwa  1 } 

{ asa*ssaiss***iaaasi*aiaaass*pJOCedlire  Matt iXBaker 33333333333333333333 ! 
Procedure  Matrixnaker(var  Tl,T2:Matrix;M;Cube;Bas:Basls) ; 

Var 

I, J,K, Sum, Rowl,Row2, Coll, Col2:  Integer; 

Begin 

For  I:=  1  to  Sz  do  begin 
For  J:3  1  to  Sz  do  begin 
For  K:3  1  to  Sz  do  begin 
Rovl : 3  I  *  Sz‘(K-l); 

Coll; =  J; 

Row2:=  Power (Sz, 2)  +  J  +  Sz*(K-l); 

Col2:=>  I; 

TlIRowl/Colll :*  M{ I , J,K ] ‘Power ( Base, ( Bas [ 1 1-Bas IK  1 ) ); 

TllRow2,Col2 1 :  =  H(I, J,K! ‘Power ( Base, (Bast U-BasdM ) ); 

T2 [Rowl, Colli :«  M(I,J,Kl ‘Power (Base, (BaslU-BaslK! ) ); 

T2(Row2,Col21 ;=  M( I, J,K1 ‘Power (Base, (Basil! -BaslKl )) ; 
end; 
end; 
end; 

End;  (Procedure  Matrixmaker! 

{=================== ===«== ==procedure  Reduce  SSSSS3S53S3S35S33SSSSSSSS J 

procedure  Reduce  (var  T2:Matrix;  cbar;  Blk;  Padic:vec); 

Label 

ONE,TWO,THR; 

Var 

I,I3,l5,J,J3,J5,Piv,Jl,Ll,L2,Mult,Bot,Temp,Mlnpower,Minrow, 

Diff , Expo: Integer; 

Begin 

Expo:3  Round (Ln(Nmod)/tn (Base) ); 

Bot:32*Power(Sz,2); 

J:*0; 

For  l:=  1  to  ( sz+1 )  do  begin  {Loop! 

two; if  j  <=  sz  then 
J;=J+1 
else 

Goto  THR; 

Plv;*  I; 

Minpower:=  Expo; 

Minrow:3  I; 

While(PadlclT2[Piv,Jl,l]  >=  1)  and  (piv  <=  Bot)  and  (J<®  (Sz+l))do 
beqln  {Pivot  Search! 

If  (Piv  =  I)  then 
Minpower:=  Padic(T2(Plv,J!,l!; 

If  Piv  >  I  then  begin 

If  Padic{T2(Piv,j) ,1!  <  Padic(T2l (Piv-l),j),ll  then  begin 
Minpower:3  PadlclT2[Plv, Jl , 1! ; 

Minrow:=  Piv; 
end; 
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end; 

Piv:*  Plv  +  1; 

end;  {Pivot  Search} 

If  (Plv  >  Bot)  and  (Minpover*Expo)  then 

Goto  TWO; 

If  (Plv  >  Bot)  and  (Minpover  <  Expo)  then 
Piv:*  Ninrov; 

If  I  <  Piv  then  begin  {Pivot) 

For  Jl:*  l  to  ( Sz+1 )  do  begin 
Temp:*  T2II,Jl); 

T2(I,J1) :=T2IPiv,Jll; 

T2[Piv,Jl):*  Temp; 
end; 

end;  (Pivot) 

THR : For  J3:*  1  to  (Sz+1)  do  begin 
If  T2tl,J31<>0  then  begin 
Mult:*  Cbar(Padic(T2(I,J31,2)  1; 

For  Jl:*J3  to  (Sz+1)  do 
T2IIrJl) :*  (Mult*T2II, Jll )mod  Nmod; 

Goto  ONE; 
end; 
end; 

ONE: For  LI:*  (I  +  1)  to  Bot  do  begin  {Reduce  Bot  LI) 

Dlff :=Pover (Base, ( Abs (Padlc(T2 (LI, J 1 , 1 1 -Padic(T2( I , J 1 , 1 1 ) ) ); 
Mult:*( (Diff*Cbar[PadicIT2tI,J],2] Imod  Nmod) 

*Padic[T2{Ll,J),21 )  mod  Nmod; 

For  L2:*  J  to  (Sz+1)  do 

T2(L1,L2) :*( ( (T2[Ll,L2]-Mult*T2(I,L21 )mod  Nmod ) +Nmod ) mod  Nmod; 
end;  {Reduce  Bot  LI) 

For  I5:*l  to  2*Power (Szf 2)  do  begin 
For  J5:=  1  to  (Sz+l)do 
Write(Lst,T2( 15, J51 :4 ) ; 

Vriteln(Lst); 

end; 


end;  {Loop) 

end;  (Procedure  Reduce) 

{ s:::s:sss::::::::r:3s:ss::ssM3ln  Program***************************** } 
Begin 

{*®*=====*****=**====*===****Initialization=**======******************} 

For  I:*  0  to  Nmod  do  begin 


CbarllJ:*  0; 

Padlct 1,1) :*0; 

Padic(I,21 :=0; 
end; 

For  I:*  1  to  Sz  do  begin 
Basil):*  0; 

For  J:=  1  to  Sz  do  begin 
For  K:*  1  to  Sz  do  beqin 
MlI,J,K) :=  0; 
end; 
end; 
end; 


{ ========================= ===gXecution= =================== ======= 

Inp(Bas,M) ; 

For  I :=  1  to  (2*Power(Sz,2) )  do  begin 
For  J:*  1  to  (Sz+1)  do  begin 
T1(I,JJ :*0; 

T2{ I, J] :=0; 


end; 

For  K:=  0  to  (Sz-1)  do  begin 
Kl:=  l+K*(Sz+l) ; 

T1(K1, (Sz+1) J Power(Base, (Basil J-BaslK+lJ ) ); 

T2IK1, (Sz+1) ) :=  Power (Base, (Bas(l]-Bas(K+l] ) ) ; 

Tl( (Kl+Power(Sz,2) ) , (Sz+1) 1 :=  Power(Base, (Basil J-BaslK+1) ) ) 
T21 (Kl+Power(Sz,2) ), (Sz+1) ) :=  Power (Base, (BasIlJ-BasIK+lJ ) ) 
end; 
end; 

invlnt(Cbar); 

Inwal(Padlc) ; 

Matr lxnaker (Tl,T2,H,Bas ) ; 

Reduce (T2,Cbar, Pad lc ) ; 

For  I :®1  to  2*Pover(Sz,2)  do  begin 
For  J:  =  1  to  (Sz+l)do 
Wrlte(L3t,Tl(I,J) :4); 

VrltelLst, '  '); 

For  j:=1  to  (sz+1)  do 
VrltelLst, T2(I,J):4); 

Vriteln(Lst); 
end; 

End. 


(Program) 


Program  combo; 

(This  Program  takes  two  cubes,  evaluates  their  traces,  sets  up  the 
appropriate  linear  systems  involving  the  Trace  Formulas,  and  reduces 
the  systems  to  echelon  form.  The  output  will  be  used  as  follows: 

1)  If  inconsistent,  the  two  cubes  represent  totally  inequivalent  rings. 

2)  If  consistent,  use  the  output  in  the  next  step  in  order  to  solve 
the  system  of  quadratic  equations  which  define  the  ring  isomorphism, 
should  one  exist.} 

{ xxxxnxaexxxxxxxxxxxxxxxxxxxxDgclarat  i.OnS====  =  =  =  =  =  =  =  =  =  ===  =  =  =  *3  ====3xxx } 
Label 

REP, REP2 , LOOPI , LOOPI 2 ; 

Const 
Sz  =  2; 

Nmod  =  3; 

Base  -  3; 

Type 

Bik  =  array! 0. .Nmod)  of  Integer; 

Sys  ■  array! 1. .54,1. .551  of  integer; 
cube  -  array! 1. .sz,l. .sz,l. .sz}  of  Integer; 

Vec  =  array! 0. .Nmod,l. .21 o£  Integer; 

LftSd  =  Array! 1. .Sz,l. .Sz,l. .Sz,i. .Sz,l. .Sz]  of  Integer; 

Rtsd  =  Array! 1. .Sz,l. .Sz,l. .Sz,l. .Sz)  of  Integer; 
stak  =  Array tl. .1361  of  Integer; 
var 

I , J, J3,K,U, V, r stepl , r step2 , cstepl , cs tep2 , Flagl ,  Flag2 , Runnum: I nteger ; 
Sysl,sys2, Raw, work, Trace:  Sys; 

M,N:  Cube; 

Cbar:  Bik; 

Padic:  Vec; 

Lftl,Lft2:  LftSd; 

Rtl,Rt2:  Rtsd; 

Choi:  Stak; 

{aa======srassxs=s====saa==saa=FunCtiOn  P0Wer=**=====sa====»*=!***«s»a!***»} 

Function  Power!  B,v:Integer) : I nteger; 

Begin 

Power : -Round ( Exp ( V*Ln (B) ) ) ; 

end;  (Function  Power) 

{aaaaaaaaaaaaaaaaaaaaaaaaaaaaprOCedUre  I  OP””*®**”*”®”**-5*3"*5®***  ) 
Procedure  Inp  (var  M,N:Cube); 

Var  I,J,K,Num:  integer; 
begin 
CIrScr; 

GotoXY(8,l); 

wrlteln( 'Char  R  is  ',Nmod,';  its  rank  is  ',Sz,';  P  is  ',Base,'.'); 
Writeln( 'They  can  be  chanqed  by  editing  the  proqram  constants.'); 
GotoXY(8,4); 

Writeln( 'Input  row  of  ( M ) ,  then  row  of  (N).'); 

GotoXY(l,6); 

For  I:-  1  to  sz  do  begin 
For  K:-  1  to  Sz  do  beqln 
For  J:*  1  to  Sz  do  begin 
Read (Kbd, Hum) ; 
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M( I , J,K)  :  =  Nun; 

GotoXY ( ( 3* J ) , Where Y ) ; 

Write (Nub) ; 
end; 

For  J:=  1  to  Sz  do  begin 
Read (Kbd, Nub)  ; 

N(i,J,K) :*  Num; 

GotoXY ( ( 3*J  *3*Sz+5),WhereY); 

Write(Nun); 

end; 

Wrlteln; 

end; 

end; 

GotoXY (1,23); 

WtlteC  Input  of  (Hi  and  (Nl  Is  complete.'); 
end;  (Procedure  Inp) 

(3»*«»»n»asi*ai»»zszsprocedure  Tracer==**=***********==*******) 
Procedure  Tracer (M,N: Cube;  var  Trace :sys); 
var 

Suml_,Sum_l,Sum2_,Sum_2,I,J:  Integer; 
begin 

For  I:-  1  to  Sz  do  begin 
Sual  .:=  0; 

Sum  1:*  0; 

Sum2_:=  0; 

Sum_2:=  0; 

For  J:*  1  to  Sz  do  beqln 
Suml_:=Suml_  +  MII,J,J1; 

Sum  l:«Sua  1  ♦  H(J,I,J); 

Sum2_:*Sum2_  +  NII,J,J); 

Sum_2:=Sum_2  +  N(J,I,J); 
end; 

Trace (I, 51 :=Suml_  mod  Nmod; 

Trace(5,I):=Sum_l  mod  Nmod; 

Trace (I, 6) :=Sum2_  mod  Nmod; 

Trace (6, 1 1 :=Sum_2  mod  Naod; 
end; 

end;  (Procedure  Trace) 

( s==3as=ssa==3s=s=ssss5=asa=aProcedure  SysBuilder===========3=========) 

Procedure  SysBuilder(var  sysl,Sys2:sys;  Trace :sys); 

Var 

I,J:  Inteqer; 
begin 

For  I;*  1  to  ( 2*Sz)  do  begin  (Loop) 

If  I  mod  2  *  1  then  beqln  (When  I  Is  Odd) 

For  J:»  (Sz*(I  dlv  2)+l)  to  ( Sz* ( ( I  dlv  2)+l))  do  begin 
Sysl(I,Jl:=  Tracel ( ( ( J-l)mod  sz)+l),5); 

Sys2(I,Jl:*  Tracel (( (J-l) mod  Sz)+l),6I; 
end; 

Sysltl, (Sz*Sz  +  1));*  Tracel ((I  +  l)dlv  2), 6); 

Sys2(I, (Sz*Sz  +  1)1;=  Tracel ((I  *  l)dlv  2), 5); 
end  (When  I  Is  Odd) 
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else  begin  (when  I  Is  Even! 

For  J:  =  (Sz*((I-l)  div  2)+l)  to  (Sz*(((I-l)  dlv  2)+l))  do 
Sysl(I,J):=  TraceI5,(((J-l)mod  Sz)+l)l; 

Sys2(I,J] :  =  Tracel6, ( ( (J-l)mod  Sz)+1)]; 
end; 

SyslI I , (Sz*Sz  +  1)1:=  Tracet6,I  div  21; 

Sys2U,  (Sz*Sz  *■  1)1:=  Trace[5,I  div  21; 


begin 


end;  {When  I  is  even! 

end;  {Loop) 

end;  {Procedure  SysBuilderl 

{saaasssssssstasssssssssssssssprocedure  i nv i nt ================== = 

Procedure  Invint  (var  cbar:  Bile); 

Var 

I,J:  integer; 

Label 

ONE; 

Begin 

Cbar I 11:=  1; 

For  l:=  2  to  (Nnod  -  1)  do  begin 
If  Cbar III  =  0  then  begin 
For  J:=  2  to  (Nnod  -  1)  do  begin 
If  (I*J)  nod  Nnod  =  1  then  begin 
Cbar(Il:=  J; 

Cbar [ J1 :=  i; 

Goto  ONE; 
end; 
end; 
end; 

ONE rend; 

end;  {Procedure  Invint 1 

{ ==================== 33 ======procedure  invval ========= ========== 

{If  X  =  (P**K)*u,  then  PadictX,ll  =  K,  PadiclX,21  =  U.  If  X  =  0 
Padic(X,21  =  Expo. 1 
Procedure  Inwaltvar  PadicrVec); 

Var 

K, I, Expo:  integer; 

Begin 

Bxpo:=  Round (Ln(Nmod)/Ln( Base) ); 

Padic(0,ll :=Expo; 

For  l:=  1  to  (Nmod-1)  do  begin 
K:  =  1; 

While  (I  mod  Power(Base,K)  =  0)  and  (K  <=  Expo)  do 
K:  =  K+l; 

Padlc(I,l) :=  K-l; 

Padic(I,2):=  I  dlv  Power (Base, (K-l) ); 
end; 

end;  {Procedure  Invval) 

(3333333333333333333333333S33PrOCedUre  LC f t S i de ================= ‘ 

Procedure  LeftSlde(var  Lftl,Lft2:  LftSd;  M:  Cube); 

Var 

I,L,C,U,V:  Inteqer; 

Begin 
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Foe  L:  =  1  to  Sz  do  begin 
For  V:  =  1  to  Sz  do  begin 
For  I:  =  1  to  Sz  do  begin 
For  U:  =  1  to  sz  do  begin 
For  C:  =  1  to  sz  do  begin 
LftltL,V,i,U,Cl:=  MIV,U,L1; 

Lft2(L, V, I ,U,Cl : =  M(U,V,L); 
end; 
end; 
end; 
end; 
end; 

end;  (Leftside) 

( ssssss*ssss:sssssss!!!sssssssPiocedure  Riqht Side =========== ===========} 

Procedure  RightSide(var  Rtl,Rt2:Rtsd;  N:  Cube); 

Var 

I,L,C,U:  Integer; 

Begin 

For  I:=  1  to  Sz  do  begin 
For  L:=  1  to  Sz  do  begin 
For  C:  =  1  to  Sz  do  begin 
For  (J:  =  1  to  Sz  do  begin 
RtlII,L,C,U):=N(I,C,U]; 

Rt2(I,L,C,Ul:=N(C,I,U); 

end; 

«nd; 

end; 

end; 

end;  (Procedure  RightSlde) 

{aasssassasasaassssssasssssssptocedure  Co 1 track er ===================== ) 

(Arranges  quadratic  variables  in  lexicographic  order.) 

Procedure  ColTracker  (var  Choi:  Stak); 

Var 

Knt,l,u,c,v:  integer; 

Begin 

Knt:=0; 

For  v:=  1  to  Sz  do  begin 
For  I:=  1  to  Sz  do  begin 
For  U:  =  1  to  Sz  do  beqin 
For  C:  =  1  to  Sz  dc  begin 

If  (10*V+IX=(10*U+C)  then  begin 
Knt:  =  Knt  +  1; 

ChoXKntl  :  =  C  +  10*<U  +  1Q*(I  +  10*V)); 
end; 
end; 
end; 
end; 
end; 

End;  (Procedure  eoltracker) 

{asaaarssssaaasaasasassassssapcocedure  B i gTableaU= ==================== } 

Procedure  BigTableau  (var  Rav,Work:Sys;  Rtl,Rt2:Rtsd;  Lftl,Lft2:LftSd; 

Choi: Stak); 
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var 

C, I, L,U,V,Checkl,Check2,Ro, Nr o,Kol, QuadCols, J,LastCol:  Integer; 
Label 
ONE, TWO; 

Begin 

QuadCols :=(Power(Sz, 4 )+Power(Sz, 2) )div  2; 

Lasted :=  QuadCols  +  Power (Sz, 2)  +  1; 

For  L:  =  1  to  Sz  do  begin  {Entries  from  Leftside} 

For  V:=  1  to  Sz  do  begin 
For  I:=  1  to  Sz  do  begin 
For  U:=  1  to  Sz  do  begin 
For  c:=  1  to  Sz  do  begin 
Ro:=  C+Sz*((L-l)+Sz*{I-l)); 

Checkl:=C+10*(U+10*( I+10*V) ) ; 

Check2:=I+10*(V+10*(C+10*U) ); 

For  J;=  1  to  QuadCols  do  begin 
If (Chol(Jl=Checkl)  or  (Cholt Jl=Check2)  then  begin 
Rav[Ro,Jl :=(Raw(Ro,Jl+Lftl(L,v,l,u,C] )mod  Nmod; 
Work[Ro,Jl:=  Raw(Ro,J); 

Nro:  =  Ro  +  Pover(Sz,3); 

Raw(Nro, J] :=(Raw(Nro, Jl+Lft2(L,V, I,U,C1 )mod  Nmod; 
WorkfNro,Jl :=  Raw(Nro,JJ; 

Goto  TWO; 
end; 


end; 

(j> 

two: end; 

(cl 

end; 

( U  } 

end; 

(1} 

end; 

( v) 

end; 

(Entries 

from  Leftside) 

For  I :=  1  to  Sz  do  begin 

For  L:  =  1  to  Sz  do  begin 

For  C:=  1  to  Sz  do  begin 

For  U:  =  1  to  Sz  do  begin 

Ro:=  C+Sz*(  (L-D+SzMl-1) ); 
Kol:»  Quadcols+U4-(L-l}*sz; 

(Entries 

from  RightSide} 

RawtRo,Koll :=  (Nmod-Rtlll,L,c,u] )mod  Nmod; 

Work(Ro,Koll  :  =  (Nmod-Rtlt I,L,C,U) )mod  Nmod; 

Nro:=  Ro  +  Power(Sz,3); 

RawtNro, Kol) :=  (Nmod-Rt2(I,L,C,U) )mod  Nmod; 

WorklNro,Kol) :=  (Nmod-Rt2(I,L,C,U} )mod  Nmod; 
end; 
end; 
end; 

end;  (Entries  from  Rightside) 

End;  (Procedure  BigTableau} 

{**ssas==s===================procedure  Reduce=========================} 

Procedure  Reduce  (var  A:sys;cbar:Blk;Bot,LastCol:Inteqer;Padic:vec); 
Label 

ONE , TWO , THR ; 

Var 

1,13, J, J3,Piv, Jl,Ll,L2,Dlff , Mult, TemD,Minpower,Minrow, Expo:  Integer; 


A'V 


•V' 

AaJL 


1 

it&A 


Beqin 

exdo:=  Round (Ln{Nmod)/Ln( Base) ); 

J:=0: 

Clrscr; 

For  I:*  1  to  (Bot  -l)do  beqin  {Loop} 

TWO: If  J  <  Lastcol  then 

else 

Goto  THR; 

Plv:  =  I; 

Minpower:=  Expo; 

Mlnrov:=  I; 

Whlle(Padlc[AlPlv,Jl/ll  >=  1)  and  (piv  <=  Bot)  and  (J<=  Lasted)  do 
beqin  (Pivot  Search) 

If  (Plv  =  I)  then 
Mlnpover:=  Padic(A(Plv, J 1 , 1 J ; 

If  Plv  >  I  then  begin 

If  Padlc(A[Plv,Jl,l)  <  PadiclAI ( Plv-1 ) , j 1 , 1 1  then  begin 
Mlnpower:*  Padlc(A(Ptv, J 1 , 1 1 ; 

Minrow:=  Plv; 
end; 
end; 

Plv:=  Plv  +  1; 

end;  {Pivot  Search} 

If  (Plv  >  Bot)  and  (Mlnpower=Expo)  then 
Goto  TWO; 

If  (Piv  >  Bot)  and  (Mlnpower  <  Expo)  then 
Piv:=  Mlnrow; 

If  I  <  Piv  then  beqin  (Pivot) 

For  Jl:»  1  to  LastCol  do  beqin 
Temp:=  A(I,J1); 

A( I , J1 1 : =A(Plv, Jl ] ; 

A(Plv,Jl):=  Temp; 
end; 

end;  (Pivot) 

For  LI : =  (I  ♦  1)  to  Bot  do  beqin  (Reduce  Bot  LI) 

Dlff :=  Power (Base, (Abs(PadiclA[Ll,J),l]-Padic(A(l,J),ll ) ) ); 

Mult :  =  ( (Dif f *Cbar (Padic( A( I , J 1 , 2 1 1  mod  Nmod) 

*Padic(A(Ll,J),2))mod  Nmod; 

For  L2:»  J  to  LastCo)  do 

AIL1,L2) :=( (A(Ll,L21-{ (Mult*A(I,L2) )  mod  Nmod))+  Mmod)mod  Nmod; 
end;  (Reduce  Bot  Ll) 

end;  (Loop) 

THR: For  1 3 : =  1  to  Bot  do  beqin 
For  J3:=  1  to  Lasted  do  beqin 
If  A(I3,J31  <>  0  then  beqin 
Mult:=  Cbar (Padic(A( 13, J31 ,2) 1 ; 

For  J 1 :  =  J 3  to  Lasted  do 
A(I3,J1):=  (Mult*A(l3,Jl))mod  Nmod; 

Goto  ONE: 
end; 
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ONE : end ; 

end;  {Procedure  Reduce) 

{=============a=====s==s==a==procedure  BTDep======= ======= 

Procedure  BTDeD( var  A:Sys;  Chol:Stak); 

Label 

LOOPC; 

Var 

12,  J2, D1,D2, Quadcols, Bot, LastCol,Kol,Dest,Sig,  Tau, 

Num, J,K,U,C, Ro, Check 1, Check 2 :  Integer ; 

Beqin 

Bot:=  2*Power(Sz,3) ; 

QuadCols:=  (Power(Sz,4)+Power(Sz,2) )div  2; 

Lasted  :=  Quadcols  +  Power (Sz, 2)  +  l; 

ClrScr;  GotoX¥(l,8); 

Wr lteln( 'Nodding  Biq  Tableau.  Assume  you  know 
A(Slg,Tau)  =  Dl-D2*A(I2,J2).' ); 


Write  ( 'Slg  =  ' ) 
Write  ( 'Tau  =  ' ) , 
Write  ( ' 12  =  '); 
Write  CJ2  =  •); 
Write  ( 'D1  =  ' ); 
Write  CD2  =  '); 


Read (Num) ; 
Read (Num) ; 
Read (Num) ; 
Read (Num) ; 
Read (Num) ; 
Read (Num) ; 


Sig:  =  Num; 
Tau: =  Num; 
12 :  =  Num; 
J2:  =  Num; 
Dl:  =  Num; 
02:=  Num; 


Wr iteln; 
Writeln; 
Wrlteln; 
Writeln; 
Writeln; 
Writeln; 


Writeln( 'Working. ' ) ; 

Kol:=  Quadcols  +  Tau  +  Sz*(Siq-l); 

For  u:=  1  to  sz  do  begin 
For  c:=  1  to  Sz  do  begin 
For  J:  =  1  to  Quadcols  do  beqin 
Checkl:=C+10*(U+10*(Tau+10*Sig) ) ; 
Check2:=Tau+10*(Siq+10*(C+10*U) ) ; 

If (Cholt J)=Checkl)  or  (Cholf Jl=Check2)  then  begin 
Dest:=  Quadcols  +  C  +  Sz*(U-l); 

For  Ro:=  1  to  Bot  do 

A(Ro,Destl :  =  (A(Ro,Destl+Dl*A(Ro,  J) )mod  Nmod; 

For  K:=  1  to  QuadCols  do  begin 
Checkl:=C+10*(U+10*( J2+10*I2) ); 
Check2:=J2+10*(l2+10*(C+10*U) ); 

If (chol(Kl=checkl)  or  (Chol(K)=check2)  then  begin 
For  Ro:=  1  to  Bot  do  begin 

A( Ro,K ) : =( ( A(Ro ,K 1 -D2*AlRo, J ) )mod  Nmod  +  Nmod) mod  Nmod; 
A(Ro,Jl:=0; 
end; 

Goto  LOOPC; 
end;  { k  > 

end;  {Ro) 

end;  {Check#) 

end;  {j} 

LOOPC :end; 
end; 

End;  {Procedure  BTDep) 


End;  {Procedure  BTDep) 

{ aaaaaaaaaaaaaaaaaaaaaaaaaaaaPrOCedUre  BTCOn ============ = 

Procedure  BTCon(var  A:Sys;  Chol:Stak); 

Label 


LOOPC; 

Var 

QuadCols ,  Bot ,  Lasted ,  Kol ,  Dest ,  S  ig ,  Tau, 

Num, Con, J,U,C,Ro,Checkl,Check2:  Integer; 

Begin 

Bot:=  2*Power(Sz,3) ; 

QuadCds:*  (Power(Sz,4)+Power(Sz,2) )div  2; 

Lasted:*  Quadcols  +  Power (Sz, 2)  +  1; 

ClrScr;  GotoXY(l,8); 

Writeln( 'Modding  Big  Tableau.  Assume  you  know  A(Sig,Tau)  =  Con.'); 


Write 

( 

'Sig  =  '); 

Read(Num) ; 

Sig:*  Num; 

Wr iteln; 

Write 

( 

'Tau  =  ' ); 

Read(Num) ; 

Tau:*  Num; 

Writeln; 

Write 

( 

Con  *  ' ) ; 

Read(Num) ; 

Con:*  Num; 

Wr  iteln; 

Writeln( 'Working. ' ) ; 

Kol:=  Quadcols  +  Tau  +  Sz*(Sig-l); 

For  U:=  1  to  Sz  do  begin 
For  C:  =  1  to  Sz  do  begin 
For  J:  =  1  to  Quadcols  do  begin 
Checkl:=  CUO*(U+10*(Tau+10*Sig) ) ; 

Check2:=  Tau+10*(Sig+10*(C+10*U) ) ; 

If (ChollJ]=Checkl)  or  (ChollJl*Check2)  then  begin 
Dest:=  Quadcols  +  C  +  Sz*(U-l); 

For  Ro:=  1  to  Bot  do  begin 
A( Ro , Dest ] : = ( AI Ro , Dest ] +Con*AI Ro , J 1 ) mod  Nmod ; 

AIRo, Jl :*0; 
end; 

Goto  LOOPC; 
end; 
end; 

LOOPC :end; 
end; 

For  Ro:=  1  to  Bot  do  begin 

AIRo.LastCol 1 :  =  ( (Nmod-Con*Al Ro,Kol ) )mod  Nmod  +  Nmod)mod  Nmod; 
AlRo,Koll :=0; 
end; 


End;  {Procedure  BTConi 

{===============s============procedure  BTScreen====*==== 


Procedure  BTScreen(var  Work:Sys;  var  Flag2:  Integer;  Chol:Stak); 
Label 
REP; 

Var 

Ch;Char; 

Begin 

REP: ClrScr; 

GotoXY{ 1, 8 ) ; 

writeln( 'Choose  one  of  the  following  options:'); 

Writeln( 'Change  Variable  to  [Clonstant. ' ) ; 

Writeln( 'Re-express  {Dlependent  Variable  in  terms  of  one  other.'); 
Writeln( ' (R leduce  Big  Tableau  again.'); 

Writeln( ' [Qluit  Modifying  Big  Tableau.'); 

Repeat 

Read ( Kbd , Ch ) 


until  Upcase(Ch)  In  ( 'C' , 'D' , 'R' , 'Q' 1 ; 

Case  Upcase(Ch)  of 
'C':  beain 

BTCon(Work,Chol); 

Goto  REP; 
end; 

'R':  Flag2:=  1; 

*  D • ;  begin 

BTDep(Work,Chol); 

Goto  REP; 
end; 

'Q' ;  Exit;  (To  Iterate! 

end; 

End;  {Procedure  BTScreen) 

( =3S3SS3====SS3S2S=SSSSSS===SP£0CedUre  TF* =  ** 33333323 3 3 3 23 32233 33 3 3 323 } 

Procedure  TF(var  Sysl:Sys); 

Var 

Bot,Col,Num,K,slg,Tau,con,I:  Inteqer; 

Begin 

Bot:=2*Sz; 

Col:*  Power (Sz, 2) fl; 

ClrScr; 

GotoXY (1,8); 

Writeln( 'Modifying  Trace  Formula.  Assumes  you  know  A(Siq,Tau)=Con. ' ) ; 
wrlteCSlq*  ');  Read(Num);  Slq:*  Num;  wrlteln; 

write (’Tau  *  ');  Read  (Num);  Tau:*  Num;  writeln; 

WrlteCCon  *  ');  Read(Num);  Con:*  Num;  Wrlteln; 

Vrlteln( 'Working. ' ); 

K:*Sz*(Siq-l)  +  Tau; 

For  I:*  1  to  Bot  do  begin 

Sysl[I,Coll :=  ( (Sysl(I,Coll-Con*Sysl[I,K) )mod  Nmod  +  Nmod)mod  Nmod; 
Sysl(I,K):*0; 
end; 

End;  (Procedure  TF) 

{ 3333333322332333333333333 333P]^OCedUre  TF SC Z CC n* ********************** } 

Procedure  TFScreen(var  Sysl:Sys;  var  Flagl:  integer); 

Label 

one; 

var 

ch:  Char; 

Begin 

ONE:ClrScr; 

GotoXY(8,8); 

Writeln( 'Choose  one  of  the  following  options:'); 

Writeln( 'Change  Variable  to  (C)onstant , ' ) ; 
wrlteln( ' (Rleduce  Trace  Formula  Again.'); 

Vr iteln( ' (Qluit. ' ); 

GotoXY(8,10); 

Repeat 

Read(Kbd,Ch); 

Until  Upcase(Ch)  in  { 'C' , ' R ' , 'Q' 1 ; 
case  upcase(ch)  of 


'C':  begin 

TF(Svsl) ; 

Goto  ONE; 
end; 

'Q':  Exit;  (To  Iterate} 

' R ' :  Flaql:=l; 
end; 

End;  (Procedure  TFScreenJ 

{a==a=====r=s==s========rsss=procedure  iterate================a:=====s!!s} 

Procedure  Iterate(var  Sysl,Work:Sys;var  Flagl,Flag2:Integer;Chol:Stak) ; 
Var 

Ch:  Char; 

Begin 

ClrScr; 

GotoXY(10,8) ; 

Wrlteln( 'Modify  [Tlrace  Formulas,  [Blig  Tableau,  or 
(Qlult  Modifying. ' ) ; 

GotoXY(10,10) ; 

Repeat 

Read(Kbd,Ch) 

Until  Upcase(Ch)  in  { ' T ' , ' B * , ' Q '  1 ; 

Case  UDcase(Ch)  of 

* T ' :  TFScreen(Sysl,Flagl) ; 

•B':  BTScreen ( Work, Flag2, Choi) ; 

• Q * :  Exit;  {To  Main  Program} 

end; 

End;  {Procedure  Iterate} 

{aaaaaaaaaaaaaaaaaaaaaaaaaraaMain  PrOqraiH= ============================} 

Begin 

{=a=aaa8aaaaaa===aaa====aa===XnitialiZatl0n====================*======} 

Rstepl:=2*Sz; 

Cstepl:=Power(Sz,2)  +  1; 

Rstep2:=2*Power(Sz,3) ; 

Cstep2:=( (Power(Sz,4)+Power(Sz,2) )div  2)+Power(Sz,2)+l; 

For  I:=  0  to  Nmod  do  begin 
Cbar(I}:=  0; 

Padic(I,ll :=0; 

Padic(I,21 ;=0; 
end; 

For  I :=  1  to  cstep2  do 

Choll 1 1 :=0; 

For  I:=  1  to  6  do  begin 
For  J:=  1  to  6  do 
Trace(I,Jl:=  0; 

end; 

For  I:=  1  to  Rstepl  do  begin 
For  J:=  1  to  cstepl  do  begin 
SyslII,J]:=  0; 

Sys2i I , J 1 :=  0; 
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end;  {Initialization) 

Flaql:=0; 

Flaq2:=0; 

For  I;*  1  to  Rstep2  do  beqln 
For  J:  =  1  to  Cstep2  do  beqln 
RavlI,J]:=  0; 

Workl I, J] :*  0; 
end; 
end; 

For  I:*  1  to  Sz  do  beqln 
For  J:  =  1  to  Sz  do  beqln 
For  K:=  1  to  Sz  do  beqln 
MII,J,K) :=  0; 

NII,J,K) :=  0; 

For  U;»  1  to  Sz  do  beqln 
RtllI,J,K,Ul:=0; 

Rt 2 1 I ,J,K,U] :=0; 

For  V:=  1  to  Sz  do  beqln 
L£tl( I , J,K,U, VI :=  0; 

Lft2[I, J,K,U,V] :=  0; 
end; 
end; 
end; 
end; 
end; 

Inp(M,N) ; 

Invint(Cbar) ; 

Inwall  Padic) ; 

Tracer I M,  N , Trace ) ; 

Svsbul lder (Svsl,Sys2, Trace ) ; 

LeftSide(Lftl,Lft2,M) ; 

RiqhtSide(Rtl,Rt2, N) ; 

ColTracker(Chol); 

BlqTableau(Raw,Work,Rtl,Rt2,L£tl,L£t2,Chol) ; 

WrltelLst, 'Trace  Formula  Matrices'); 

GotoXY(40,WhereY) ; 

WrltelnlLst, 'Sys2  For  Information  Only'); 

For  I:«  1  to  Sz  do  beqin 
For  J;=  1  to  Sz  do 
VritelLst, '  ’,J,I); 

end; 

WrltelLst,'  col'); 

WrltelnlLst); WrltelnlLst); 

For  I : *1  to  Rstepl  do  beqin  {Echo  o£  Sysl  and  Sys2) 

For  J:=  1  to  cstepl  do 
WrltelLst, SyslII, Ji : 4 ) ; 

GotoXY(40,whereY); 

WrltelLst,'  '); 

For  J:=l  to  Cstepl  do 
WrltelLst, Sys2II, J) :4) ; 

WrltelnlLst) ; 


w 


I.f  4.»  «.«  | 


end;  {Echo  of  Sysl  and  Sys2) 

Reduce ( Sys2 , Cbar , rstepl, cstepl, Padlc ) ; 

REP:Wr iteln(Lst) ; 

Reduce (Sysl, Cbar, rstepl, cstepl, Padic); 

Write in (Lst, 'Reduced  Trace  Formula  Matrices'); 

For  I:=l  to  Rstepl  do  begin 
For  J:=  1  to  Cstepl  do 
Wrlte(Lst,Syslli,J];4); 
write(Lst,'  '); 

For  J:=l  to  Cstepl  do 
Write ( Lst, Sys2( I , J) : 4) ; 

Writeln(Lst) ; 
end; 

Flaql:-0; 

Iterate (Sysl, Work, Flaql,Flag2, Choi) ; 

If  Flaql=l  then 
Goto  REP; 

Runnum: =1; 

REP2;lf  Runnum  =  1  then  beqln 
writein(Lst) ; 

WritelntLst, 'Raw  Tableau  entries.'); 

For  I:  =  1  to  Rstep2  do  begin 
For  J3:=  1  to  Cstep2  do  begin 
If  WorkII,J31<>0  then  begin 
For  J:=  1  to  Cstep2  do 
Write(Lst,Work(I,Jl :2); 

Writeln(Lst) ; 

Goto  LOOP I; 
end; 
end; 

loopi :end; 
end; 

Writeln(Lst) ; 

Reduce ( Work , Cbar , Rs tep2 , Cstep2 , Padic) ; 

Writeln(Lst, 'Run  Number  ', Runnum); 

Writeln(Lst, 'Reduced  Tableau  entries.'); 

For  I :=  1  to  Rstep2  do  begin 

For  J3:=  1  to  Cstep2  do  begin 
If  Work(I,J3)<>0  then  begin 
For  J:=  1  to  Cstep2  do 
Write(Lst,Workl I, J) :2) ; 

Writeln(Lst) ; 

Goto  LOOPI 2; 
end; 
end; 

LOOPI 2 : end; 

Flag2:=0; 

Iterate (Sysl, Work, Flaql,Flaq2, Choi ) ; 

If  Flaq2=l  then  begin 
Runnum: =  Runnum+1; 

Goto  REP 2; 
end; 


vvS-!vSv'/v>'/vv 
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Program  IDENPOT; 

{This  Program  is  a  subset  of  QUADID.  Its  purpose  is  to  simplify  the 
search  for  an  idempotent  other  than  1  in  a  ring  R. 

{===========s====B=====3====sDeclarations======================="====} 

Label 

REP , REP  2 , LOOP I , LOOP 1 2 ; 

Const 

sz  =  3;  {Rank  R) 

Nmod  -  3;  {Char  R) 

Base  =  3; 

Type 

Blk  =  array! 0. .Nmod 3  of  Integer; 

Sys  =  arrayll.  .18,1.  .341  of  Integer; 

Cube  -  arrayll. .Sz,l. .Sz,l. .Szl  of  Integer; 

Vec  =  arraylO. .Nmod,l. .21of  Integer; 

LftSd  =  Arrayll. .Sz,l. .Sz,l. .Sz,i. .Sz,l. .Szl  0f  Integer; 

Rtsd  =  Arrayll. .Sz,l. .Sz,l. .Sz,l. .Szl  of  Integer; 
stak  »  Arrayll.. 241  of  Integer; 

Tr  =  Arrayll. .10,1. .61  of  Integer; 

Var 

I,J,J3,K,u,v, rstepl , r step2 , cstepl , cstep2 , Flagl , 

Flag2,Rank,Runnum:  Integer; 

Sysl,Raw, Work :  Sys; 

M.N:  Cube; 

Cbar:  Blk; 

Padic:  Vec; 

Lftl,Lft2:  LftSd; 

Rtl,Rt2:  Rtsd; 

Choi:  Stak;  {»  of  Quadratic  Variables) 

Trace:  Tr; 

Cent:  Char; 

l  s=3sss=s=s=ss===s*ssss==s5s*Funct i on  Power ======«============**===«) 

Function  Powerl  B,v:Integer) :Integer; 

Begin 

Power : =Round ( Exp ( V*Ln ( B ) ) ) ; 

end;  {Function  Power) 

{================s====a======procedure  InP”==========*==============*) 

Procedure  Inp  (var  M:Cube); 

Var  I,J,K,Num:  Integer; 
begin 
ClrScr; 

GotoXY(8,4) ; 

WritelnCThe  characteristic  of  R  is  ',Nmod,';  its  rank  is  ',sz,'.'); 
Writeln('To  change  either,  edit  the  program  constants  Nmod  or  Sz.'); 
GotoXYl 8, 8 ) ; 

Writeln( 'Enter  IM1  by  rows,  assuming  IM1  has  been  checked  by 
BASPROPS . ' ) ; 

GotoXY(l,10) ; 

For  I :=  1  to  Sz  do  begin 
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Ml  I , j ,K 1 : *  Num; 

GotoXY ( ( 3* J ) , Where Y ) ; 

Write (Num); 
end; 

Writeln; 

end; 

end; 

GotoXY (1,20); 

Write('  Input  of  Cube  Complete.'); 

Delay(lOOO); 

ClrScr; 

end;  (Procedure  inp) 

{========s==========sa=a=====Procedure  searchtype==***==============**) 

Procedure  Searchtypetvar  Cent:Char;  var  Rank: Integer); 

Label 


K 


•c; 


========**=) 


ONE, TWO; 

Beqin 

ONE: GotoXY (5, 8) ; 

Wrlteln( 'Find  a  (Clentral  or  INloncentral  idempotent?' ); 

Read (Kbd, Cent); 

If  Not  (Upcase(Cent)  in  [!C','N'D  then 
Goto  ONE; 

GotoXY(5,9) ; 
wrlte(Cent) ; 

TWO: GotoXY (5, 12); 

Wrlteln( 'Rank  of  eR  Is  (11 , ( 21 , . . ,or  Ik)?'); 

Read (Kbd, Rank); 

If  Not  (Rank  in  (l..sz))  then 
Goto  TWO; 

GotoXY (5,14); 
wrlte(Rank) ; 

end;  (Procedure  Searchtype) 

{ ==aa=====================s==Procedure  Tracer ===*=*====== 

Procedure  Tracer (H,N: Cube;  var  Trace :Tr;  Cent: Char;  Rank:  Integer); 
Var 

Suml  ,Sum  l,Sum2_,Sum_2,I,J:  Inteqer; 
beqin 

For  I:*  1  to  Sz  do  beqin 
Suml..:*  0; 

Sum..! :  *  0 ; 

Sum2  :=  0; 

Sum_2:*  0; 

For  J:*  1  to  Sz  do  beqin 
Suml_:=Suml_  +  M(I,J,J); 

Sura_l:*Sum_l  +  M(J,I,J); 

If  I  *  1  then  begin 
Sum2_:*Sum2_  f  N(1,J,JI; 

Sum  2:*Sum_2  +  N(J,1,J1; 
end; 
end; 

Trace (I, 5) :=Suml.  mod  Nmod; 

Trace (5, I ) :*Sum  1  mod  Nmod; 


If  I  =  1  then  begin 
Trace  1 1,6 ) :=Sum2_  mod  Nmod; 

Trace (6,11 :=Sum_2  mod  Nmod; 
end; 
end; 

end;  {Procedure  Trace) 

{===sa==s====s=======sS======procedure  SysBuilder =====================} 

Procedure  sysBuilder (var  Sysl:sys;  Trace :Tr;  Cent; Char); 

Var 

J:  Integer; 
begin 

For  J:=  1  to  Sz  do  beain 
Svsl(l,J) :  =  Trace(J,51; 

Svsl[2,Jl:=  Tracet5,Jl; 
end; 

Syslfl, (Sz*Sz  *  1)  ):  =  Trace  11,6); 

Sysl( 2, (Sz*Sz  +  1)1:=  Trace(6,l); 
end;  {Procedure  SysBuilder) 

{====asaass=as===s=a3asass===pr0cedure  I nVi nt ========================= } 

Procedure  Invint  (var  cbar:  Blk); 

Var 

I,J:  Integer; 

Label 

ONE; 

Beqin 

Cbar (11;=  1; 

For  I:=  2  to  (Nmod  -  1)  do  beqin 
If  Cbardl  =  0  then  begin 
For  J:=  2  to  (Nmod  -  1)  do  begin 
If  (I*J)  mod  Nmod  =  1  then  begin 
Cbar ( 1 1 : =  J ; 

Cbar[Jl:=  I; 

Goto  ONE; 
end; 
end; 
end; 

ONE: end; 

end;  {Procedure  Invint) 

{3===3=ra==raa=======aa===rrapr0cedure  I nWa 1 ========================= ) 

{If  x  =  (P**K)*u,  then  Padic(Xfll  =  K,  Padic(X,2)  =  u.  If  X  =  0,  then 
Padic(X, 2 )  =  Exdo. ) 

Procedure  Invval(var  Padic:Vec); 

Var 

K, I, Exdo:  Inteqer; 

Beqin 

Expo:=  Round (Ln( Nmod )/Ln (Base) ); 

Padic'0,11 :=Expo;  {Padic(0,21  is  already  0) 

For  I:=  1  to  (Nmod-1)  do  beqin 
K:=  1; 

While  (I  mod  Power (Base, K)  =  0)  and  (K  <=  Expo)  do 
K : =  K+l; 

PadicI I ,1) :=  K-l; 
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Pad ic 1 1 , 2 1 :=  I  dlv  Power (Base, (K-l) ) ; 
end; 

end;  {Procedure  Invval} 

{===s=====================s==procedure  Le£tSlde======3=======3=*======} 

Procedure  Le£tSlde(var  Lftl,Lft2:  LftSd;  M:  Cube;  Cent:Char); 

Var 

L,C,U,V:  Integer; 

Begin 

For  L:=  1  to  Sz  do  begin 
For  V:=  1  to  sz  do  begin 
For  U:=  1  to  Sz  do  begin 
For  C:=  1  to  Sz  do  begin 
LftllL, v, l,u,Cl ;=  Mlv,u,L]; 

If  upcase(Cent)  =  'c'  then 
L£t2lL,V,l,U,Cl:=  MtU,V,Ll; 

end; 

end; 

end; 

end; 

end;  {Leftside} 

{ ====================== ======procedure  RiqhtSide======================} 

Procedure  RightSide(var  Rtl,Rt2:Rtsd;  N:  Cube;  Cent:Char); 

Var 

L,C,U:  Integer; 

Begin 

For  L:=  1  to  sz  do  begin 
For  C:=  1  to  sz  do  begin 
For  u:=  1  to  Sz  do  beqln 
Rtl[ 1,L,C,U] :=  N( 1,C,U] ; 

If  Upcase(Cent)  =  ' C '  then 
Rt  2 ( l,l,C,Ul : =  N(C,L,U1; 

end; 

end; 

end; 

end;  {Procedure  RlghtSide} 

{=====2========s=s======as===Procedure  coitracker======*=*====3=======} 

{Arranges  guadratlc  variables  in  lexicographic  order} 

Procedure  ColTracker  (var  Choi:  Stak); 

Var 

Knt,U.C,V:  integer; 

Begin 

Knt:=0; 

For  v:=  1  to  Sz  do  begin 
For  U:=  1  to  Sz  do  begin 
For  C:=  1  to  Sz  do  begin 

If  (10*v+l)<=(10*U+C)  then  begin 
Knt:=  Knt  +  l; 

CholtKnt 1 :=  C  +  10*(U  +  10* ( 1  +  10*V) ) ;  {VlUC  as  Base  10  #} 
end; 
end; 
end; 
end; 


i 
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V. 


S 

BA 


E 


End;  {Procedure  Coltracker) 

{============================Procedure  BiqTableau= ============ ======== ) 

Procedure  BiaTableau  (var  Raw,Work:Sys;  Rtl,Rt2 :Rtsd; 

Lftl,Lft2:LftSd;  Chol:Stak;  Cent:Char); 


Var 

C, L,U,V,Checkl, Check 2, Ro, Nr o, Kol, QuadCols, J, LastCol :  Integer; 
Label 
ONE, TWO; 

Begin 

QuadCols :=(2*Power(Sz, 3) -Power (Sz, 2 )+Sz)dlv  2; 

LastCol:=  QuadCols  +  Power(Sz,2)  +  1; 

For  L:=  1  to  Sz  do  begin  {Entries  from  Leftside} 

For  V:=  1  to  Sz  do  begin 
For  U:=  1  to  Sz  do  begin 
For  C:=  1  to  Sz  do  begin 
Ro: =  C+Sz*(L-l); 

Check 1: =C+10* (U+10* { 1+10*V) ) ; 

Check2:=l+10*(V+10*(C+10*U) ) ; 

For  J:  =  1  to  QuadCols  do  begin 
If (Choll Jl=Checkl)  or  ( Choi t Jl=Check2)  then  begin 
Raw(Ro,J] :=(Raw(Ro, J)+L£tl(L,V,l,U,C) )mod  Nmod; 
Work[Ro,J]:=  RawtRo,JJ; 

If  Upcase(Cent)  =  ' C '  then  beqin 
Nro:=  Ro  +  Sz*Sz; 

RawlNro,Jl:=  (Raw(Nro,J}+Lft2tL,V,l,U,C] )mod  Nmod; 
WorktNro.Jl :=  Raw(Nro,J); 
end; 


Goto  Two; 


end; 
end; 

two: end; 
end; 
end; 
end; 

For  L:=  1  to  Sz  do  beqin 
For  C:=  1  to  Sz  do  begin 
For  U:=  1  to  Sz  do  begin 
Ro: =  C+Sz*(L-l) ; 

Kol:=  QuadCols+U+(L-l)*Sz; 

RawlRo,Koll :=  (Nmod-Rtll 1,L,C,U] )mod  Nmod; 
WorktRo.Koll :=  Rav(Ro,Kol); 

If  Upcase(Cent)  =  'C'  then  begin 
Nro:=  Ro  +  sz*sz; 


{j} 

{c} 

{u} 

tv} 

{Entries  from  Leftside) 
{Entries  from  RightSide) 


Raw(Nro,Koll  :  = 
WorklNro,Kol) : 
end; 
end; 
end; 
end; 

End; 

Procedure  Reduce  (var 


(Nmod-Rt2(l,L,C,Ul )mod  Nmod; 
=  Raw(Nro,Kol 1 ; 


(Entries  from  RightSide) 
(Procedure  BigTableau) 

:=======Procedure  Reduce=========================) 

A:svs;  cbar:Blk;  Bot,LastCol:lnteger;  Padicivec); 


Label 

ONE, TWO, THR; 

Var 

1,13, J, J3,Piv, Jl,Ll,L2,Diff , Mult, Temp, Minpower, Mi nr ow, Expo:  Integer 
Begin 

Expo:  =  Round (Ln( Nmod )/Ln( Base )) ; 

J :  =0 ; 

ClrScr ; 

For  I:*  1  to  (Bot  -l)do  begin  (Loop} 

TWO: If  J  <  Lasted  then 
J:=J+1 
else 

Goto  THR; 

Plv:  =  I; 

Minpower :=  Expo; 

Mlnrov:=  I; 

While(Padic( AlPiv, J] ,1]  >=  1)  and  (piv  <=  Bot)  and  (J<=  LastCol)do 
begin  {Pivot  Search) 

If  (Piv  =  I)  then 
Minpower:=  Padic(A(Piv,Jl ,1) ; 

If  Piv  >  I  then  begin 

If  Padicl AfPiv, J),ll  <  Padlc(A( (Piv-1), J),1J  then  begin 
Minpower:*  Padic[A(Piv,Jl ,1) ; 

Minrow:*  Piv; 
end; 
end; 

Plv:=  Piv  +  l; 

end;  {Pivot  Search) 

If  (Piv  >  Bot)  and  (Mlnpower=Expo)  then 
Goto  TWO; 

If  (Piv  >  Bot)  and  (Minpower  <  Expo)  then 
Piv:=  Minrow; 

If  I  <  Piv  then  begin  {Pivot) 

For  Jl:=  1  to  Lasted  do  begin 
Temp:=  At  I , Jll ; 

At  I , Jl 1 :=A(Piv,Jl); 

AlPiv, Jl) :=  Temp; 
end; 

end;  {Pivot) 

For  Ll:*  (I  +  1)  to  Bot  do  begin  {Reduce  Bot  Ll) 

Diff :=  Power ( Base, (Abs(Padic[A(Ll,J],l]-Padic[A[ I, J ], 1] ) ) ); 

Mult : =( ( Dif f *Cbar (Padic( A( I , J 1 , 2 ) )mod  Nmod) 

*Padic(A(Ll,J) ,2] )mod  Nmod; 

For  L2:=  J  to  Lasted  do 

A(L1,L2 1 :=( (A(L1,L2 1  -  ( (Mult*A( I ,L2 ) )  mod  Nmod))+  Nmod)  mod  Nmod 
end;  {Reduce  Bot  Ll) 

end;  {Loop) 

THR: For  I3:=  1  to  Bot  do  begin 
For  J3:=  1  to  Lastcol  do  begin 
If  A(I3,J31<>0  then  beqin 
Mult : =  Cbar (PadicI A( 13, J3) , 2)] ; 

For  J 1 :  =  J 3  to  Lasted  do 
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At  1 3 , J 1 ] :=  ( Mult*A( 1 3 , J1 1 )mod  Nmod; 

Goto  ONE; 
end; 
end; 

ONE:end; 

end;  {Procedure  Reduce} 

{============================Procedure  BTDep==========================} 

Procedure  BTDeptvar  A:Sys;  Chol:Stak); 

Label 

LOOPC; 

var 

12,  J2,D1,D2,  QuadCols,  Bot,  Lasted,  Kol,Dest,Siq,  Tau, 

Num, J,K,U,C, Ro, Check  1, Check 2 :  Integer ; 

Begin 

Bot:=  2*Power(Sz,2) ; 

QuadCols:=  (2*Power(Sz,3)-Power(Sz,2)+Sz)div  2; 

LastCol:=  Quadcols  +  Power(Sz,2)  +  1; 

ClrScr;  GotoXY(l,8); 

Writeln( 'Modding  Big  Tableau.  Assume  you  know  A(Slg,Tau)  = 

D1-D2*A( 12, J2) . ' ) ; 


Write 

( 

•  H 

II 

tr 

•*  i 

to 

Read(Num) ; 

Sig 

ii 

z 

c 

a 
*  • 

Writeln; 

Write 

( 

'Tau  =  ' ) ; 

Read(Num) ; 

Tau 

:  =  Num; 

Writeln; 

Write 

( 

'12  =  '); 

Read(Num) ; 

1 2 :  = 

Num; 

Writeln; 

Write 

( 

'  J2  =  '); 

Read(Num) ; 

J2:  = 

Num; 

Writeln; 

Write 

( 

'  D1  =  ' ) ; 

Read(Num) ; 

Dl:  = 

Num; 

Writeln; 

Write 

( 

D2  =  '); 

Read(Num) ; 

02  :  = 

Num; 

Writeln; 

I 


Writeln( 'Working.' ); 

Kol:=  QuadCols  +  Tau  +  Sz*(Slg-l); 

For  U:=  1  to  Sz  do  begin 
For  C:=  1  to  Sz  do  begin 
For  J:=  1  to  Quadcols  do  begin 
Checkl: =C+10*(U+10*(Tau+10*Slg) ) ; 
Check2:=Tau+10*{Slg+10*(C+10*U) ) ; 

If (Choll Jl=Checkl)  or  (Cholf J]=check2)  then  begin 
Dest:=  QuadCols  +  C  +  Sz*(U-l); 

For  Ro:=  1  to  Bot  do 

A(Ro,Destl : =( AlRo, Dest 1 +D1*A( Ro, J 1 )mod  Nmod; 

For  K:=  1  to  QuadCols  do  beqin 
Checkl :=C+10*(U+10*(J 2+10*1 2 ) ) ; 

Check2:=J2+10*( I2+1Q*(C+10*U) ); 

If (Chol(Kl=Checkl)  or  (Chol(K)=Check2)  then  begin 
For  Ro:=  1  to  Bot  do  begin 

AfRo.Kl :=( (A.Ro,K)-D2*A(Ro, J) )mod  Nmod  +  Nmodlmod  Nmod; 
A{Ro, J I : =0; 
end; 

Goto  LOOPC; 
end; 
end; 
end; 
end; 

LOOPC: end; 
end; 


{k} 

{Ro} 

{Check#} 

(j} 


End;  {Procedure  BTDep) 

Procedure  BTCon(var  A:Sys;  Choi :Stak ) ; 

Label 

LOOPC; 

Var 

QuadCols , Bot , LastCol , Kol , Dest , S lg , Tau , 

Num, Con, J,U,C,Ro,Checkl,Check2:  Integer; 

Begin 

Bot:=  2*Power(Sz,2); 

QuadCols:=  (2*Power(Sz,3)-Power(Sz,2)+2)div  2; 

LastCol:=  Quadcols  +  Power(Sz,2)  +■  l; 

ClrScr ;  GotoXY(l,8); 

Writeln( 'Moddinq  Big  Tableau.  Assume  you  know  A(Siq,Tau)  =  Con.'); 
Write  ('Siq  =  ');  Read(Num);  S i q : =  Num;  Writein; 

Write  ('Tau  =  ');  Read(Num);  Tau:=  Num;  Writein; 

Write  ('Con  =  ');  Read(Num);  Con:=  Num;  Writein; 

Writeln( 'Workinq. ' ) ; 

Kol:=  Quadcols  +  Tau  +  sz*(Siq-l); 

For  U:=  1  to  Sz  do  beqin 
For  C:=  1  to  Sz  do  beqin 
For  J:=  1  to  Quadcols  do  begin 
Checkl : =  C+10*(U+10*(Tau+10*Siq) ) ; 

Check2:=  Tau+10*(Siq+10*(C+10*U) ) ; 

If (Chol(Jl=checkl)or(Chol( Jl=Check2)  then  beqin 
Dest:*  Quadcols  +  C  +  Sz*(U-l); 

For  Ro:=  1  to  Bot  do  beqin 
A(Ro,Destl :=(A(Ro,Destl+Con*A(Ro, Jl )mod  Nmod; 

A(Ro.j)  :=0; 
end; 

Goto  LOOPC; 
end; 
end; 

LOOPC: end; 
end; 

For  Ro:=  1  to  Bot  do  begin 

A(Ro,LastCol  1  :  =  (  (Nmod-Con*A(Ro,Kol  1  )mod  Nmod  *■  Nmod)mod  Nmod; 

A(  Ro,Kol ] : =0; 
end; 


End;  (Procedure  BTCon) 

{ ======== ====================pr0cedure  BTScreen== ======= 


Procedure  BTScreen(var  Work:Sys;  var  Flaq2:  Inteqer;  Chol:Stak); 
Label 
REP; 

Var 

Ch:Char ; 

Beqin 

REP:ClrScr ; 

GotoXY (1,8); 

Writelnf 'Choose  one  of  the  following  options: '); 

Writeln( 'Change  Variable  to  (C I onstant .  '  ) ; 

Wrlteln(  'Re-express  (Dependent  variable  in  terms  of  one  other.'); 
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a 


Si 


Writeln( ' [Rleduce  Biq  Tableau  aqain.'); 
Writeln( ' [Qluit  Modifvlnq  Biq  Tableau.'); 
Reoeat 

Read(Kbd,Ch) 

Until  UDcase(Ch)  in  I 'C* , • D 1 , ' R * , 'Q' ) ; 
Case  Upcase(Ch)  of 
'C';  beqin 

BTCon(Work,Chol); 

Goto  REP; 
end; 

' R ' :  Flaq2:=  1; 

'D‘:  begin 

BTDepf work, Choi ) ; 

Goto  REP; 
end; 

' Q ' :  Exit;  {To 


'Q' 

end; 


{To  Iterate) 


End;  {Procedure  BTScreen) 

{============================proce<iure  tf====**==============*=== 

Procedure  TF(var  SyslrSys); 

Var 

Col,Num,K,Siq,Tau,Con,l;  Integer; 

Beqin 

Col:=  Power (Sz,2)+1; 

ClrScr ; 

GotoXY(l,8) ; 

Writeln( 'Modifyinq  Trace  Formula.  Assumes  you  know  A(Siq,Tau)  = 
Con.'); 


. ) 


Write( 

’Siq  =  '); 

Read(Num) ; 

Sig:  = 

Num; 

Writeln; 

Wr i te ( 

'Tau  =  '); 

Read(Num) ; 

Tau:* 

Num; 

Wr iteln; 

Write( 

'Con  =  ' ) ; 

Read(Num) ; 

Con:* 

Num; 

Writeln; 

Writeln( ' Workinq. ' ) ; 

K:=Sz*(Siq-l)  +  Tau; 

For  I :=  1  to  2  do  beqin 

SyslII,Col] :=  ( (SyslII,Col J-Con*Sysl[ I ,K) )mod  Nmod  +  Nmod)mod  Nmod; 
SyslI I ,K1  :=0; 
end; 

End;  {Procedure  TF) 

{ ========================= ===Procedure  TFScreen==============*========) 

Procedure  TFScreen(var  Sysl:Sys;  var  Flaql:  Integer); 

Label 

ONE; 

var 

Ch:  Char; 

Beqin 

ONE: ClrScr ; 

GotoXY (8,8); 

Writeln( 'Choose  one  of  the  following  options:'); 

Wr iteln( 'Chanqe  variable  to  (Clonstant. 1 ) ; 

Writeln{ ' [Rleduce  Trace  Formula  Aqain.'); 

Wr  iteln( ' [Qluit. ' ) ; 

GotoXY(8,10) ; 


V't 


Repeat 

Read ( Kbd ,  Ch ) ; 

Until  Upcase(Ch)  in  ( 'C' , * R ' , *Q' ] ; 

Case  Upcase(Ch)  of 
' C ' :  beain 

TF(Sysl) ; 

Goto  ONE; 
end; 

' Q ' ;  Exit;  (To  Iterate) 

' R ' :  Flaql:=l; 
end; 

End;  (Procedure  TFScreen) 

{====a========a========s=====procedure  Iterate===================*====) 

Procedure  Iterate(var  Sysl,Work:Sys;var  Flaql,Flag2:Integer;Chol:Stak); 
Var 

Ch:  Char; 

Beqin 

ClrScr; 

GotoXY(10, 8 ) ; 

Writeln( 'Modify  ITlrace  Formulas,  [Bllq  Tableau,  or 
[Qluit  Modifyinq. ' ) ; 

GotoXY (10,10); 

Repeat 

Read ( Kbd, Ch) 

Until  upcase(Ch)  in  f 'Tf, 'B', '0' 1; 
case  upcase(Ch)  of 

'T':  TFScreen(Sysl,Flaql) ; 

' B • :  BTScreen( Work, Flaq2, Choi ) ; 

'O':  Exit;  {To  Main  Proqram) 

end; 

End;  {Procedure  Iterate) 

{ ======================= =====Ma in  proqram=============================) 

Beqin 

{====a=======================Initlalization===========================) 

Rstepl:=2; 

Cstepl:=Power(Sz,2)  +  1; 

Rstep2 : =2*Pover ( Sz , 2 ) ; 

Cstep2:  =  (  (2*Power  (Sz, 3) -Power  (Sz,  2)+Sz)dlv  2)-t-Power  (Sz,2)+1; 

For  I : =  0  to  Nmod  do  beqin 
Cbarll ) :=  0; 

Padlc ( I , 1 1 : =0 ; 

Padic(I,21 :=0; 
end; 

For  I:=  1  to  CStep2  do 
Choi (I) :=0; 

For  I:=  1  to  6  do  beqin 
For  J:=  1  to  6  do 
Trace [ I , J ) : =  0; 

end; 

For  l:=  1  to  Rsteol  do  begin 
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For  J:=  1  to  Cstepl  do  beqin 
Sysl[I,J):=  0; 
end; 

end;  {initialization} 

Flagl:=0; 

Flag2:=0; 

For  l:=  1  to  Rstep2  do  beqin 
For  J:=  1  to  Cstep2  do  begin 
Rawtl, j 1 :=  0; 

Worktl.Jl :=  0; 
end; 
end; 

For  l:=  1  to  Sz  do  begin 
For  J:=  1  to  Sz  do  beqin 
For  K:=  1  to  Sz  do  beqin 
M(I,J,K) :=  0; 

N[I,J,K) :=  0; 

For  U:=  1  to  Sz  do  beqin 
Rtlt I , J,K,U) :=0; 

Rt2f I, J,K,U) :=0; 

For  V:=  1  to  Sz  do  begin 
Lftl(I,J,K,U,VI:>  0; 

Lft2(I,J,K,U,V] :*  0; 
end; 
end; 
end; 
end; 
end; 

{============================Execution=============================*===} 

Inp(M); 
lnvlnt(Cbar ) ; 

Invval(Padic) ; 

Searchtype( Cent, Rank ) ; 

For  I:=  1  to  Rank  do  beqin 
Nil, 1, 1 1 :=  1; 

N[ 1,1, 1 1 :  =  1; 
end; 

Tracer(M,N, Trace, Cent, Rank) ; 

Sysbuilder (Sysl, Trace, Cent) ; 

Le£tSide(Lftl,L£t2,M,Cent); 

RiqhtSide(Rtl,Rt2,N,Cent) ; 

ColTracker(Chol) ; 

BiqTableau(Raw,work,Rtl,Rt2,L£tl,L£t2,Chol,Cent) ; 

Wrlteln(Lst, 'Trace  Formula  Matrix'); 

Wrlteln(Lst) ; 

For  I :=  1  to  Sz  do  begin 
For  J:=  1  to  Sz  do 
Write(Lst, '  ' ,  J, I ) ; 

end; 

Wr lte(Lst, '  Col'); 

Writeln(Lst) ;Wrlteln(Lst) ; 

For  I ; =1  to  Rstepl  do  begin  (Echo  of  Sysl} 


r 
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For  J:=  1  to  Csteol  do 
Write (Lst,Sysl( I , J] : 4 ) ; 

Writeln(Lst) ; 

end;  {Echo  of  Sysl) 

REP : Writeln(Lst) ; 

Reduce (Sysl, Cbar, rstepl, cstepl, Padic ) ; 

Writeln(Lst, 'Reduced  Trace  Formula  Matrix'); 

For  I : =1  to  Rstepl  do  begin 
For  J:=  1  to  Cstepl  do 
Write(Lst,Sysl(I,Jl :4); 

Writeln(Lst) ; 
end; 

Flaql:=0; 

Iterate ( Sysl, Work,Flagl,Flag2, Choi ) ; 

If  Flagl=l  then 
Goto  REP; 

Runnum:=l; 

REP2:If  Runnum  =  1  then  begin 
Wrlteln(Lst) ; 

Writeln(Lst, 'Raw  Tableau  entries.'); 

For  I:=  1  to  Rstep2  do  beqin 
For  J3:=  1  to  Cstep2  do  begin 
If  Work! I , J3 1 <>0  then  beqin 
For  J:=  1  to  Cstep2  do 
wrlte(Lst,Work(l,Jl : 2 ) ; 

Writeln(L3t) ; 

Goto  LOOPI; 
end; 
end; 

LOOPI : end; 
end; 

Writeln(Lst) ; 

Reduce (Work, Cbar, Rstep2,Cstep2, Pad ic ) ; 

Wrlteln(Lst, 'Run  Number  ', Runnum); 

Writeln(Lst, 'Reduced  Tableau  entries.'); 

For  l:=  1  to  Rstep2  do  begin 

For  J3:=  1  to  Cstep2  do  beqin 
If  WorkfI,J3)<>0  then  begin 
For  J:=  1  to  Cstep2  do 
Write(Lst,Worktl,J]  :2)'; 

Writeln(Lst) ; 

Goto  LOOPI 2; 
end ; 
end; 

LOOPI 2: end; 

Flaq2:=0; 

Iterate(Svsl,Work ,Flaql,Flaq2,Chol ) ; 

If  Flaq2=l  then  beqin 
Runnum: =  Runnum+1; 

Goto  REP2 ; 
end; 

End. 


(Program) 


